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OQUESAOTECLASDEFUNCAO 



PROGRAMACAO DAS TECLAS 



MOMTAGEM DE UM M ENU 
COMO DETECTAR tNTERRUPC pES 
PROGRAME A TECLA <STOP> 



MSX oferece urn recurso fantastico 
para dar aos programas urn acabamento 
proftssionaJ: as teclas programlveis. 
Explorando-as bem, voce conseguiri 
menus de fungoes instantSneos na tela.. 



A nraioria dos computadores profis- 
sionais. como os cobt^ados micros da li- 
nha PC, de dezesseis bits, tern teclados 
imensos, com cem teclas ou mais. Isso 
nao s6 simpliTica o acesso a um grande 
niimero de funi^oes embutidas no siste- 
ma, pela pressao a uma unica tecla, co- 



mo permite que o usudrio reprograme 
a funijao de parte das teclas, de acordo 

com suas necessidades, 

Em numero de dez a doze, as teclas 
programdveis pelo usuirio, tambem 
chamadas de tecias defungao, em geral 
se situam num bloco isolado, na pane 




superior ou lateral do leclado. Essa dis- 
posi^rao faciiita a correspondencia entre 
as teclas e os rbtulos a elas atribuidos, 
cujo posicionamento pode ser exibido 
na ultima linha do video, tamb^m sob 
controle de programa. 

Os micros da linha MSX dispoem de 
cinco teclas programiveis, que estao lo- 
calizadas na parte superior do teclado. 
Na realidade, etas possibititatn o acesso 
a dez funijoes, pois, pre&sionando-se a 
tecla < SHIFT > simultaneamente com 
uma tecla programavel, ativa-se uma se- 
gunda fun?ao que pode ser atribuida 
^quela tecla. 

Os recursos de programa^ao dispo- 
niveis no inferpretator BASIC do MSX 
sao muito ricos. Aprendendo a explora- 
los de maneira criativa, voce se habili- 
lari a produzir programas com um de- 
sempenho altamente profissional. Nes- 
te artigo, apresentamos alguns truques 
interessantes, muitos dos quais nao se 
encontram no Manual de BASIC que 
acompanha o computador. Voce logo 
serA capaz de aproveitd-los com suces- 
so em outros programas. 



TECLAS PROGRAMAVEIS 



As teclas de funvao podeni ser usa- 
das de dols modos em um programa: 

— para dar entrada a uma cadeia de 
caracteres no computador, pressionan- 
do-se uma linica tecla; 

^ para interromper automaticamen- 
te a execucao de um programa e 
redireciond-lo para executar uma ou 
mais sub-rotinas especificas, cada qual 
associada a uma tecla programavel. 

Em ambos os casos, e possivel (mas 
nao obrigatorio) exibir em uma linha re- 
servada (a liltima hnha da tela) uma lis- 
ta de r6tulos de identificafao das teclas. 
A.ssim, o usuario nao precisari recorrer 
sempre a memoria para saber o que faz 
cada lecla programavel. Essa linha, uma 
vez "ligada", fica presente na tela, mes- 
mo quando seu conteiido "rola". 



COMANDOS INSTANTANEOS 



O modo mais simples de utiliza^ao 
das teclas programiveis, que consiste em 
dar entrada a uma cadeia de caracteres, 
e exemplificado pela opera^ao normal 
do pr6prio computador. 

Como voce jd deve ter observado, ao 
ligar a maquina (ou ao pressionar o bo- 
tao < RESET > de iniciaiirafao, exis- 
tente em alguns micros da linha MSX), 
aparece uma serie de rotulos na linha in- 
ferior da tela. Eles correspondem a co- 



mandos ou instru^Ses do BASIC, ou se- 
ja, COLOR. LIST, RUN, GOTO etc. 

Se voce pressionar uma das teclas 
program^veis (identificadas na parte su- 
perior do teclado pelos rotulos Fl, F2 etc), 
vera que a palavra a ela associada e en- 
trada por extenso no computador, apa- 
recendo na tela logo adianie do cursor. 

Caso pressione a tecla < SHIFT > o 
conteiido da linha inferior da tela mu- 
dara para outros quatro r6tuIos adicio- 
nais, que correspondem ^s fungoes das 
teclas ¥6 a FIO. Portanto, a pressao si- 
mullanea das teclas Fl e < SHIFT > 
provocard a entrada automdtica da ca- 
deia associada. 

O carregamento dos r6tulos associa- 
dos a cada tecla e feito automaticamen- 
te, no momento de inicializagao do in- 
terpietador BASIC. Para apagar a linha 
da tela, basta dar o comando: 

KEY OFF 

seja em modo dircto, seja dentro de um 
programa. 

Tente fazer isso e, em segutda, pres- 
sione novamente uma das teclas de fun- 
fao. VocS vera que ela continua funcio- 
nando — a cadeia de caracteres a que 
se associa aparece do mesmo jeito na te- 
la. A funijao do comando KEV OFF, 
portanto, resume-se ao desligamento da 
linha de exibigao. 

O comando seguinte faz exatamente 
o contrario do anterior, ou seja, torna 
a exibir a linha de tela associada as te- 
clas programdveis; 

KEY ON 

Este comando tamb^m pode ser di- 
gitado em modo direto ou ser colocado 
dentro de um programa. 

No caso da programagao BASIC, a 
vantagem de se associar os comandos 
mais comuns as teclas programaveis e 
evidente: em vez de digitar o comando 
por extenso, pressiona-se a tecla progra- 
mavel uma vez. Com isso, evitamos er- 
ros de digitapao e aceleramos conside- 
ravelmente o processo de entrada de um 
programa BASIC. 

Experimentando todas as teclas pro- 
gramaveis, voce observara que algumas 
delas, ao serem pressionadas, simples- 
mente dao entrada k cadeia de caracte- 
res (por exemplo, LIST), e mais nada 
acontece. O cursor fica parade no fim 
da palavra entrada. Para que o coman- 
do seja executado, voci deverd pressio- 
nar a tecla < ENTER > , que o envia pa- 
ra o processador. No exemplo dado, a 
execucao resultaria na listagem de um 
programa inteiro na tela. 

Voce pode, pordm, digitar o numero 
ou OS niimeros de linha sobre os quais 



o comando LIST vai atuar, e so depois 
pressionar < ENTER >. 

Algumas teclas programaveis, por 
outro lado, dao entrada a palavra asso- 
ciada, mas a executam imediatamente — 
e o caso de RUN. Como veremos adian- 
te, essa diferenga de funcionamento po- 
de ser especificada facilmente pelo pro- 
gramador. Tudo depende da fun^ao que 
se quer associar a cada tecla. 

Para verificar na tela quais os rdtu- 
los que se associam a cada uma das te- 
clas programiveis, digite o comando 
KEY LIST. As palavras que sao envia- 
das imediatamente, sem a necessidade 
do < ENTER > , aparecem assinaladas 
por uma flechinha no final. Sabe-se, 
desse modo, que o caractere de contro- 
le equivaleme ao < ENTER > foi agre- 
gado ao final da palavra. 



programacAo das teclas 



fi muito fdcil atribuir uma cadeia de 
caracteres a uma tecla programdvel, e 
pode-se faze-lo tanto em modo direto 
quanto dentro de um programa. A ins- 
tru?ao em BASIC a ser utilizada e: 

KEY n, "cadeia" 

onde n e numero da tecla de funfao, 
e "cadeia", o rotulo que deve ser asso- 
ciado a tecla. Experimente digitar, por 
exemplo: 

KEY l.^CLS" 

O r6tulo da tecla Fl, que iniciaimente 
era COLOR, passa a ser CLS, ao ser ini- 
cializado o computador. Confira, digi- 
tando KEY LIST. 

Agora, pressione a tecla Fl. Voce ve- 
rd entao que o comando CLS aparece 
instantaneamente na tela, logo ap6s o 
cursor, mas nao e executado. Para que 
isso ocorra, voce deverd pressionar a te- 
cla < ENTER >. 

Se quisermos que a execufao do co- 
mando seja automatica, precisaremos 
definir a tecla de outro modo: 

KEY 1, 'CL3"-t-CHBS(13) 

Ao listar o conteiido das teclas pro- 
gramaveis com KEY LIST, voce cons- 
tat ara que a marca de retorno foi acres- 
centada no fim da palavra CLS. 

O caractere ASCII 13, adicionado h 
cadeia de caracteres por meio da fun^ao 
CHRS, corresponde exatamente ao cd- 
digo gerado intemamente ao se pressio- 
nar a tecla < ENTER > . Ou seja, equi- 
vale a pressiond-la automaticamente, 
quando a tecla Fl i acionada. 

Cabem exatamente seis caracteres no 
espa?o alocado para o rdtulo de cada te- 
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cla, na linha de menu. Isto e o que cabe 
na tela, o que nao significa que voce es- 
teja limitado a definir um r6tulo de ape- 
nas seis caractcres, Experimente digitar: 

KEX l."DEFUSRl-31100-+CBR$<13) 

Apenas as seis primeiras letras (DE- 
FUSR) aparecerao na tela, mas a cadeia 
seri enviada por extenso quando se pres- 
sbnar a tecla Fl. Portanto, se for ne- 
cessario "esconder" a marca de retor- 
no em um rdtulo, basta digitar a seguin- 
te linha: 



KEY 1,"CLS 



*+CHH$ClJ> 



Deixe tr6s espagos entre o final da pa- 
lavra e o segundo sinal de aspas, nesse 
exemplo. 

Se a cadeia de caracteres a ser asso- 
ciada a tecla tivet que conter aspas em 
seu interior, nao dar^ certo fazer algo 
comor 



KEi l,"LOAD 



CODE" 



A fungao CHRS, mais uma vez, re- 
solve dilema: 

KE? 1,"L0AD "+CHR$(44)+ 
CHRS<44)+" CODE" 

O codigo ASCII 44, evidentemente, 
corresponde ao caractere aspas. 



OUTROS USOS 



Nao e obrigat6rio atribuir is teclas 
programaveis apenas comandos ou ins- 
tru(;6es em BASIC. Na realidade, pode- 
se atribuir a elas qualquer cadeia de ca- 



racteres, o que possibilita muitas apli- 
cagoes interessantes. 

Suponhamos, por exemplo, que vo- 
ce va passar uma longa mensagem ao 
comptitador usando um programa de 
processamento de textos. Se notar que 
certas palavras ou frases mais longas se- 
rao empregadas varias vezes (como mi- 
crocomputador, Secretaria Especial de 
[nform^tiea etc.), bastara carregar pre- 
viamente as teclas de fungao com estas 
cadeias (nao seguidas do caractere AS- 
CII 13). Pelas seis primeiras letras da 
frase, voce poderd identificar a tecla as- 
sociada a ela e, simplesmente, pressiona- 
ta. Isso poupara muito tempo de di- 
gitagaol 



TECNICAS DE PROGRAMACAO DE MENUS 



Como '}A foi mencionado, as teclas 
programaveis sao muito utitizadas para 
a programaijao ripida de menus, ofere- 
cendo duas vantagens: o menu fica sem- 
pre prescnie na IJnha reservada da tabe- 
ia, e e muito mais facil localizar as te- 
clas associadas ^s suas opg:5es do que se 
estivessemos utilizando teclas normals 
do teclado. 

Os programas que se seguem vao 
mostrar algumas das tiicnicas mais co- 
muns de programa^ao de menus utili- 
zando as teclas de fungao. 

Suponhamos que voce queira elabo- 
rar um programa de banco de dados, 
com as quatro fun(;6es cidssicas; inserir 
registros, apagar registros, modificar re- 
gistros e listar o banco de dados, Al^m 
dessas fungoes precisariamos de uma 



quinta opgao: a de termino da execugao 
do programa. 

Ja vimos como montar um menu des- 
se tipo de diversas maneiras — usando 
PRINT, INPUT, INKEYS etc. Para 
usar teclas programaveis, poderiamos 
fazer o seguinte: 



10 STS=STRINGS(38. 
20 KEY OFFrCLS 
30 KEY l,"Insere" 



■3 



40 


KEY 2," 


Apaga 


n 




50 


KEY 3 , " 


Mod If 


n 




60 


KEY A." 


Lista 


n 




70 


KEY 5," 


FTM 


" 




80 


LOCATE 


10.0 






90 


PRINT " 


BANCO 


DE 


DADOS" 


100 


LOCATE 


0,1: PRINT ST$ 


110 


LOCATE 


0,21 


PRINT STS 


120 


KEY ON 








130 


A$=INPUT$ (6) 




140 


LOCATE 


0.10 






150 


PRINT 


" FbNCM : 


";AS 


160 


IF A3 = 


"FIM 


" 


THEN CLS:END 


170 


GOTO 130 







A linha 10 define uma variivel, STS, 
igual a uma cadeia de 38 tracinhos: i a 
linha de separagao, usada para dar me- 
Ihor aparencia ^ tela de entrada. A li- 
nha 20 "desliga" a linha de identifica- 
gao das teclas programdveis e limpa a te- 
la. As linhas 30 a 70 programam as te- 
clas de fungao Fl a FS. As linhas de 90 
a llOcompdem a tela e a 120 "liga" no- 
vamente a linha de exibi?ao dos r6tulos 
das teclas de fungao, desta vez com os 
rdtulos que foram atribuidos no 
programa. 

Finalmente, as linhas 130 a 150 pro- 
cessam o resultado da pressao k% teclas 
de fungao. Observe que a instrugao 



INPUTS, prbpria do MSX, tern um fun- 
cjonamento semelhante ao do INKEYS, 

so que inclui ura determinado numero 
de pressoes ks teclas, de cada vez. 
INPUT$(6) significa que o computador 
deve esperar que sets caracteres sejam 
digiiados (nao os mostra na tela) para, 
entaOj prosseguk o programa. 

Note que colocamos seis caracteres 
em cada r6tulo, preenchendo-os com cs- 
pa?os em branco ao final, quando ne- 
cessdrio. Assim, qualquer pressao a uma 
tecia program^vel imediatamente aten- 
dera a condicSo da linha 130, armaze- 
nando o resultado na varidvet A$ e se- 
guindo para as linhas 140 a 160. 

As liahas 140 e 150 cabe simpiesmen- 
tc escrcver o resultado dessa atuatao no 
meio da tela. A linha 160 exempli fica o 
que fazer a partir dai. Ela verifica se 
FIM foi pressionado e executa 
CLS:END, terminando o programa, se 
isto aconteceu. 

Diversos IF seriam utilizados para 
chamar (GOSUB) as rotinas de insergao, 
apagamento etc., no nosso banco de da- 
dos. A linha 170 faz tudo voltar ao me- 
nu. Pode ser interessante dar um KEY 
OFF antes de chamar as rotinas, para 
que o usudrio nao tenha a impressao de 
que o menu ainda continua dispom'vel. 
Isso pode ser fetto seletivamente, como 
veremos mais adiante. 

O programa seguinte, que € uma mo- 
dificacao do anterior, testa o resultado 
da pressao a uma tecla de fun9ao com 
mais economia. 

10 STS=STRINGS(38,"_"1 

20 KEY OFF:CLS 

30 KE¥ l.'Insere" 

40 KEY Z."Apaqa " 

50 KEY 3,"Modi£ " 

60 KEY 4, "Ljgta " 

70 KEY 5,''FtM 

80 LOCATE 10,0 

90 PHI^fT "BANCO DE DADOS" 

100 LOCATE 0,1: PRINT 3T3 

110 LOCATE 0,21: PRINT STS 

12 KEY ON 

130 AS-LEFT$ (INPUTS C6) .1) 

140 LOCATE 0.10 

150 ON INSTRC'IAMLF" ,AS) GOSUB 

170,180,190,200.900 

155 GOTO 130 

170 PHINT "ROTINA DE INSERCAO 

m 

175 RETURN 

180 PRINT "ROTINA DE APAGAMENTO 

185 HETUBN 

190 PBINT "ROTINA DE MODTFICACA 

0" 

195 RETURN 

200 PRINT "ROTTNA DE LISTAGEM 

205 BETURN 
|9O0 BEM FIM DO PHOGRAMA 
I 905 CLStEND 



Observe que, agora, a linha 130 e 
usada para extrair e armazenar em A$ 
apenas o priraeiro caractere do rotulo da 
tecla de fungao acionada. Portanto, os 
r6tulos precisam ter, como no exemplo, 
letras iniciais diferentes, para evitar con- 
fusoes. 

Na linha 15 estd a vantagem dessa 
t^cnica. Ela permite utilizar a forma 
bem mais compacta do ON... GOSUB, 
para dirigir o programa k rotina chama- 
da pelo menu. 

A fungao INSTR, que talvez voce 
nao conhe?a, significa, em ingles, in 
sfring, ou seja, dentro de um cordao. 
Ela verifica se um caractere ou cadeia 
de caracteres estd presente dentro de 
uma outra cadeia. Em caso negativo, o 
valor zero e retornado. Em caso afirma- 
tivo, a posi(;ao do caractere (sua ordem 
no primeiro cordao) e retornada. Por 
exemplo: 

PRINT INSTR {"COMPUTADOR" , "P") 

retorna o valor 4, enquanto: 

LET AS-'X' 

PRINT INSTR ("COMPUTADOR" , AS) 

retorna o valor zero. 

No programa, o cordao lAMLF es- 
pecificado corresponde 4s letras iniciais 
das cinco op?6es oferecidas pelo menu. 
Sendo pressionada uma das teclas pro- 
gramaveis, a letra inicial do r6tulo i ar- 
mazenada em A$ (linha 130) e testada 
pela fun^ao INSTR, na linha 150. O 
numero retornado serve para endere- 
gar a sub-rotina que seri selecionada em 
ON... GOSUB. 

A listagem do programa anterior 
mostra apenas a primeira e a ultima li- 
nhas das rotinas. Se estiver interessado, 
complete-as voc6 mesmo. 



INTERRUPCOES PROGRAMADAS 



Os programas vistos ate aqui parecem 
nao apresentar vantagens mais signifi- 
cativas em rela^ao h programacao con- 
vencionai de menus que aprendemos an- 
teriormente. Na realidade, eles apenas 
acrescentam a possibilidade de utiliza- 
^ao das teclas programaveis e da linha 
reservada de rotulafao, 

Entretanto, as teclas de fungao do 
micro MSX oferecem um recurso bem 
mais poderoso de programa<;ao: a inter- 
rupgao programada. 

(Quando pressionamos uma dss teclas 
de fungao Fl a FIO, o comportamento 
do computador € diferente do observa- 
do em relafao eis teclas normals do te- 
clado. Em vez de simplesmente gerar um 
caractere ou cordao de caracteres, a 
pressao k tecla de funcao "avisa" o in- 



terpretador BASIC — qualquer que se- 
ja ponto do programa que esteja sen- 
do executado — que tal pressao ocor- 
reu, gerando o que se denomina, em lin- 
guagem tecnica, de inierrupgao do pro- 
cessador (UCP). 

Para entender como funciona uma 
interrupgao pelo teclado, basta tomar 
como exemplo uma tecla que jS e pre- 
programada para gerar um tipo especi- 
fico de interrupcao: a tecla < STOP > . 

O sistema operacional e interpretador 
BASIC do MSX estd sempre "atento" 
a tecla < STOP > , por meio de um dis- 
positivo especial de hardware, para de- 
tectar se ela foi pressionada. A verifica- 
?ao e feita a cada poucos raicrossegun- 
dos e, nao importa o que o computador 
esteja fazendo no momenio da interrup- 
gao, imediatamente o processador pas- 
sa a executar uma rotina de servigo que, 
no caso, servird para "congelar" um 
programa em execugao ou tnterrom- 
nd-io, retornando ao modo de entrada 
(quando < CONTROL > e <STOP> 
sao pressionadas simultaneamente). 

Pois bem, Fl a FIO sao teclas de \n- 
terrup<^ao programaveis, ou seja, o pro- 
gramador pode especificar a rotina de 
servigo que deve ser acionada pelo sis- 
tema operacional correspondente a ca- 
da tecla. 

Existem diversas instrugoes do BA- 
SIC que permitem programar interrup- 
goes a partir das teclas Fl a FIO. Uma 
delas consiste em: 

ON KEY GOSUB nl,n2. . . 

que verifica se alguma lecla de fungao 
foi pressionada. ou seja. se ocorreu uma 
interrupgSo. Conforme a tecla pressio- 
nada, um numero inteiro entre 1 e 10 6 
retornado. Elc chama a sub-rotina na 
ordem indicada, nas linhas nl, n2 etc. 
ON KEY GOSUB 1000, 1100, por 
exemplo, provocara um sal to para a 
sub-rotina que comega na linha 1000, se 
a tecla Fl for acionada. ou para a linha 
1 100, se a tecla F2 for acionada. A ins- 
trugao ON KEY GOSUB deve ser colo- 
cada em um ponto da listagem que as- 
segure a sua execugao pelo menos uma 
vez, antes das detecgoes de interrupgao, 
que, como a rotulagao das teclas, ocor- 
rem no comego do programa. 

Por^m, precisamos de mais uma con- 
digao para montar a "armadiiha" que 
detecta interrupgoes. A capacidade de 
gerar interrupgoes pode ser "ligada" ou 
"desligada" de cada tecla de fungao in- 
dividualmente, pelas instrugoes: 

KEY (n) ON 
KEY (n) OFF 
KEY <n) STOP 



onde n e o numero da teda. Quando se 
liga computador, todas as teclas estao 
em modo OFF, ou seja, "desligadas". 
Ao ser detectada uma pressao a teda de 
funcao, um KEY STOP e dado automa- 
ticamente, inibindo toda a interrup^ao 
subseqiiente, ate que ocorra um RE- 
TURN da sub-rotina chamada pelo ON 
KEY GOSUB. 

Embora o comando KEY (n> STOP 
iniba a interrup^ao do programa, ele 
eontinua sendo capaz de detectar uma 
pressao a teda de fun^ao indicada. As- 
sim, ao retornar da rotina de servifo de 
uma tecla de fungao, o programa pode- 
ra imediatamenie rumar para outra ro- 
tina, se, enquanto isso, outra tecla de 
fun?ao tiver side pressionada. 

Se programador quiser inibir tan- 



to a inierrupijao quanto a detec?ao, de- 
ve usar um comando KEY (n) OFF. 

No programa seguinte voc6 encontra- 
tA exemplos das tecnicas mais elemen- 
tares de utilizagao das instrugoes ON 
KEY GOSUB e KEY ON. O objetivo e 
imitar uma maquina de somar simples, 
que apresenta o resultado quando a te- 
da Fl e pressionada. 

10 CLS 

20 PRINT TAB < 10) I'SOMADORA MSX 

I" 

30 ON KEY GOSUB 20 

40 S-0 

50 KEY (1) ON: KEY 1,'SOMA ' 

60 KEY 2," ":KEY 3," " : KEY 

4." " :KEy 5," - 

120 ■ 

130 ■ ALCA DE SOMA 



140 




150 


LOCATE 6,10 


160 


PRINT " 


170 


LOCATE 0,10 


180 


INPUT "UALOR ";V 


190 


S-S+V:G0T0 150 


200 


' 


210 


SUBftOTINA PAR 


220 


' 


230 


LOCATE 0,12 


240 


PRINT "SOMA - " ;S 


250 


RETURN ISO 



A linha 30, logo no coraeco do pro- 
grama, prepara a armadilha para detec- 
tar interrup^oes pelas teclas de fungao 
e desviar o fluxo de processamenlo, A 
linha 40 zera a varidve! S, que e o acu- 
mulador de somas; a linha 50 "Uga" a 
tecla Fl e rotula seu propdsito na linha 
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reservada para exibigao na tela. A linha 
60 "limpa" os r6tuJos das teclas progra- 
maveis que nao serao usadas. 

As tinhas 150 a 190 do programa rea- 
lizam a fungao de soma de valores. Elas 
formam uma alga sem fim, o que t tipi- 
co de todo programa que utiliza as te- 
clas de fungao do contexto do ON KEY 
GOSUB. A aiga sem fim fm. o progra- 
ma esperar ou executar alguma coisa (no 
caso somar os mimeros entrados pelo 
usuArio), ate que uma tecla de imerrup- 
pao seja pressionada. 

Se se pressionar a tecla Fl enquanto 
o programa esta esperando a entrada de 
urn valor, nada acontece de imediato. 
Mas, assim que a tecla < ENTER > for 
pressionada, a rotina que comega na li- 
nha 200 sera acionada, pois foi a espe- 
cificada na tinha 30. Ela simplesmente 
mostra a soma acumulada ate o ultimo 
numero entrado e retorna para a linha 
30, de modo a dar prosseguimento a 
soma. 

E o que acontece se alguma tecla pro- 
gramivel nao desativada for acidenial- 
mente pressionada? Nao acontece nada, 
pois o funcionamento do ON KEY GO- 
SUB e tal que o desvio se realiza apenas 
para as sub-rotinas indicadas. 



DM PROGRAMA MAIS FUNCIONAL 



Embora nao apresente problemas de 
funcionamento, o programa anterior 
tem dois defeitos: nao oferece provisao 
para interrupgao ao final do processa- 
mento, nem a possibilidade de zerar o 
acumulador para permitir nova soma 
sem sair do programa. O seguinte, mais 
complete, faz tudo isiio: 

10 CLS 

20 PRINT TAB(IO) ;"S0MADORA MSX 

II- 

30 ON KEY GOSUB 200,300,400 

40 3=0 

BO KEY CI) ON; KEY 1,"S0MA " 

60 KEY (2) ON: KEY 2. "LIMPA ' 

70 KEY (3) ON:KEY 3. "FIM 

80 KEY 4," "^KEY 5 . " " 

120 ' 

130 ■ ALCA DE SOMA 

140 ' 

150 LOCATE 6,10 

160 PRINT " 

170 LOCATE 0,10 

180 INPUT "VALOR ' i U 

190 S-S+V:GOTO 150 

200 ' 

210 ■ SUBROTINA PARA TECLA Fl 
220 ■ 

230 LOCATE 0,12 
240 PRINT "SOMA - ";S 
250 RETURN 150 
300 ■ 

1 310 ' SUBROTINA PARA TECLA F2 
320 ■ 



330 LOCATE 0,12 

340 PRINT "SOMA =0 

350 S-0: RETURN 150 

400 ■ 

410 ' SUBROTINA PARA TECLA F3 

420 ■ 

4 30 CLS r END 

Agora, a linha 30 permile o desvio 
para tres rotinas: de soma (iinha 200), 
de zeragem (tinha 30O) e de termino (li- 
nha 400). Experimente pressionar outras 
teclas de fungao enquanto uma rotina 
esta sendo executada: se voce conseguir 
faze-lo a tempo, notard que nada 
acontece. 

Em um programa curto como este, a 
definigao individual de cada KEY e mais 
do que satisfatoria. Entretanto, se pre- 
cisar incluir muitas teclas, voce podera 
obter um programa mais compacto e 
elegante fazendo esta definigao dentro 
de um lafo de repetigao. Para ter um 
exemplo, substitua estas linhas no pro- 
grama anterior: 



50 FOR 1-1 TO 5 

60 READ CS :KEY (1) ON 

70 KEY I.C$:NEXT I 

80 DATA "SOMA "."LiMPA 



•FIM 



O lago que vai das linhas 50 a 70 faz 
um indice I variar de 1 a 5. A linha 60 
\% sucessivamente os rotulos das teclas, 
em DATA. Observe que os rdtulos nto 
usados sao definidos como um espa?o 
em branco. 

As linhas 60 e 70 ainda se encarre- 
gam, respectivamente, de "ligar" a te- 
cla c atribuir-lhe o rdtuto C$. Note que 
OS comandos aceitam variaveis como ar- 
gumentos. 

Ao experimentar o programa, voc6 
deve ter reparado que as teclas progra- 
m^veis nao interrompem o programa 
enquanto ele est^ esperando entradas 
pelo usuirio, em um comando INPUT. 
Como se trata de um inconvenJente, re- 
correremos a um expediente que possi- 
bjlitara a ocorrencia de interrupgao em 
qualquer momento. A condi^ao parais- 
so h que o computador esteja dentro de 
um la^o de repeti?ao durante a entrada 
de um valor na linha 30. Tal condi(;ao 
pode ser atendida se "simularmos" um 
comando INPUT, por meio de virios 
INKEYS sucessivos. 

A rotina seguinte, que comegra na li* 
nha 500, faz esse serviijo, e retorna um 
valor numerico V. Substitua tambem a 
linha 30, como foi indicadoi 

160 PRINT "VALOR ";: GOSUB 500 

500 VS-"" 

510 C$-INKEY$:IF CS-"" THEN 510 

520 IF ASC{C$)-13 THEN V-UAL ( 

V$) : RETURN 

530 PRINT CS: VS-VS+CS :GOTO 510 



Experimente o programa modificado 
e veja como ele e capaz de aceitar inter- 
rup(;6es tambem dentro do cicio de en- 
trada de dados. 



PROGRAMAgAO DA TECLA <STOP> 



Afirmamos um pouco antes que 
< STOP > e uma tecla de interrupcao 
pre-programada, ou seja, que executa 
uma rotina fixa ao ser acionada. Bern, 
a afirma^ao e totatmente verdadeira! 

De fato, o usuario tambem pode pro- 
gramar a tecla <STOP > , definindo o 
que ela deve fazer quando for pressio- 
nada, Assim, < STOP > equivale as te- 
clas de fungao, s6 que nao dispoe de es- 
pago proprio na linha reservada de ro- 
tulagao, para dizer ao usuario o que ela 
faz. Mas podemos utilizar a propria de- 
finiijio da tecla e us^-la sempre para ter- 
minal um programa ou um sub- 
programa. Esta funpao de "escape" de 
um nivel de programa para outro i a 
marca registrada dos superprogramas 
comerciais atualmentc disponiveis para 
computadores pessoais. 

O comando que se segue desvia o 
processamento para a sub-rotina indica- 
da, quando as teclas <CTRL> e 
<STOP> sao pressionadas simuitanea- 
mente (nada acontece se se pressionar 
apenas a tecla <STOP>). 

ON STOP GOSUB 

Para que uma instru^ao ON STOP 
GOSUB funcione, e necessario ativar a 
armadilha interna, por meio de um co- 
mando STOP ON. A partir do momen- 
to em que este comando for encontra- 
do, o desvio serd reaiizado para a 
sub-rotina indicada no ON STOP GO- 
SUB, sempre que se pressionar simulta- 
neamente as teclas <CTRL> e 
<STOP> . Como nas teclas de fumjao, 
OS comandos STOP OFF e STOP STOP 
"desligam", respectivamente, a inter- 
rupgao e a detecfao, para as teclas men- 
cionadas. Experimente alterar o progra- 
ma, adicionando a op?ao de interrup- 
gao pelas teclas < CTRL > <STOP>: 

45 ON STOP GOSUB 400 
90 STOP ON 

A possibilidade de detectar o aciona- 
mento da tecla <STOP> tem uma ou- 
tra utilidade: muitas vezes, o programa- 
dor deseja impedir a interrupgao aciden- 
tal ou intencional de seu programa por 
um outro usuario, seja para protege-lo 
contra olhos curiosos, seja para evitar 
perdas de dadot, ou outras condigoes cri- 
ticas. O ON STOP GOSUB funciona 
muito bem para esta finaUdade, no mi- 
cro MSX. 
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SIMBOLOS GRAFICOS 



UTILIZAC AO DE CARACTERES 



GRAFICOS EM PRQGRAMAS 

AS funcQes CHR$ E ST R ING$ 

TABELA DE REFERENCIA 



Os usuarios do TRS-80 nao precisam 
ficar frustrados por nSo disporem dos 
fabulosos sprites. Como verao aqui, i 
possivel obter animapoes de excelente 
qualidade em suas m^quinas. 



Se voce ja tentou produzir grdficos 
animados em um microcomputador da 
linha TRS-80 usando as comandos SET 
e RESET, com certeza chegou a conclu- 
sao de que a tarefa e praticamente im- 
possfvel. Esses comandos servem para 
acender ou apagar pixels individuais na 
tabela de baixa resoluijao, permitindo 
oompor, sem maiores dificuldades, figu- 
ras complexas, como um aviao ou um 
foguefe. Entretanto, se tentarmos ani- 
mar o desenho como um todo — 
deslocd-to na tela, por exemplo — , ob- 
teremos efeitos ridicules, gramas a Icn- 
lidao do inierpretador BASIC. 

Vimos em artigos anteriores que, no 
que se refere aos micros pessoais mais 
modernos ^ como os das linhas Spec- 
trum, TRS-Color, MSX e Apple — , a 
solugao para esse probfema consiste em 
definir caracteres grificos por softwa- 
re, armazena-los em uma porfao da me- 
m6ria (area UDG no Spectrum, sprites 
autenticos no MSX e variaveis numeri- 
cas ou alfanum^ricas nos demais com- 
putadores) e anima-los. 

Evidentemente, o TRS-80 nao conta 
com recursos tao maravilhosos. Mas ha 
um "jeitinho" que nos permite obter 
animafoes fantasticamente rapidas... 
em BASIC! Veremos como em uma se- 
riede anigos. Antes, porem, precisamos 
entender o funcionamento dos caracte- 
res grificos pre-definidos do TRS-80. 



CARACTERES GRAFICOS 



O que sao caracteres graficos? Como 
voce ji sabe, os caracteres que aparecem 
no video tem cddigos numericos intei- 
ros que, leoricamente, podem variar en- 
trc e 255 — cada caractere correspon- 
dendo, portanto, a um byte da mem6- 
ria de video. Parte dessa codificapao d 
convencionada internacionalmente: 
traia-se do chamado codieo ASCII, que 



vai de 32 a 126. Os codigos a 31 sao 
normalmente utifizados para funpoes de 
controle do video, e dependem do tipo 
de computador. O mesmo acontece com 
OS cddigos 127 a 255. Nesta faixa cada 
fabricante uliiiza os c6digos de uma ma- 
neira, geralmente para acomodar carac- 
teres grificos. 

O TRS-80 possui 64 caracteres grafi- 
cos de teclado, ocupando a faixa de cd- 
digos que vai de 128 a 191. 

O caractere grifico com o codigo 128 
e um espaijo em branco, semelhante ao 
que recebe o codigo 32 no ASCII. En- 
tretanto, nao deixa de ser liii!, sobretu- 
do para efeito de certas manipulagoes 
nas telas grdficas, 

Umaspectobastanteinteressantedos 
caracteres grificos pre-definidos e que 
etes se comportam exataraente como 
qualquer outro caractere alfanumerico, 
para fins de impressao na tela. Assim, 
eles podem ser usados como argumen- 
to de comandos PRINT, o que nos per- 
mite obter boa velocidade na exibigao 
de grdficos no micro TRS-80. 

Ao contrario dos caracteres grdficos 
pr^-definidos do TK-2000. do MSX, do 
ZX-81 e do Spectrum, os do TRS-80 nao 
podem ser entrados pelo teclado. Assim, 
para especifici-los dentro de um progra- 
ma, t necess^rio utilizar as fungoes 
CHR$ e STRINGS 

Para imprimir na tela um retangulo 
totalmente preenchido, escrevemos, por 
exemplo: 

PRINT CHRS[191) 

O programa abaixo mostra a tabela 
de correspondencia entre cddigos nume- 
ricos c graficos na tela do TRS-80: 

10 C[.S 

20 FOB J=129 TO 191 STEP 9 

30 FOR I=J TO J+B 

40 PRINT IiCHRSCI) i 

50 NEXT I: PRINT: NEXT J 

O programa funciona da seguinte 
maneira: a linha 10 limpa a tela. O la^o 
que vai da linha 20 h. linha 50 (controla- 
do pela varidvel J) produz valores nu- 
mericos que variam entre 129 e 191 (a 
faixa de c6digos graficos, portanto), em 
incrementos de 9. Assim, o lafo das li- 
nhas 30 a 50 (controlado pela vari^vel 
n pode incrementar de 1 em 1 os valo- 



res intermedidrios. Este e um anificio 
utilizado para produzir na tela uma ta- 
bela clara e bem-feita, com nove cddi- 
gos por linha. 

A linha 40 do programa exibe o c6- 
digo numerico (I) e o caractere grafico 
correspondente (CHR$(I)). O PRINT 
entre os dois NEXT na linha 50 serve 
para mudar a linha de impressao. 

Se voce pretende empregar caracte- 
res graficos freqiientemente em um pro- 
grama, convem armazenar os seus cd- 
digos em uma variivel alfanum^rica. 
Com esse procedimento, vocS nio sd 
podera utiliza-los com mais facilidade 
como tambem nao precisard consuUar 
a toda hora a tabela de cddigos grafi- 
cos, ao desenvolver um programa. 

Da mesma maneira, se voce quiser 
utilizar uma cadeia de caracteres grdfi- 
cos em virios pontes de um programa, 
armazene-a em uma variavel alfanume- 
rica. Para isso, recorra 4 fun^ao 
STRINGS. 

Execute o programa abaixo c veja co- 
mo ficam hnhas compostas pe!o mesmo 
caractere grifico. 

10 CLS 

20 1NPUT"C0DIG0 GRAFICO 

30 INPUT" COMPRIMENTO (1-63) ";N 

40 SS=STRING$(N,C) 

50 PRINT e 256.35 

60 FOR 1=1 TO 500:NEXT 

70 GOTO 10 

A fun^ao STRINGS tem varias utili- 
dades, quando empregada com cddigos 
graficos. Uma delas, por exemplo, e 
preencher instantaneamente a tela com 
um caractere grafico. Lembre-se de que 
a tela de textos do TRS-80 tem 1024 ca- 
racteres (dezesseis linhas de 64 colunas 
cada). Se usarmos, por exemplo, uma 
linha de programa composia de quatro 
PRINT STR1NG$(256,I91), sepatados 
por ponto e virgula, o resultado serS um 
preenchimento total da tela com o ca- 
ractere grafico 191, que corresponde a 
um bloco inteiramente preenchido (ve- 
ja a tabela constante do seu Manual de 
Programafao). 

Substituindo o segundo argumento 
da funfao STRINGS por outro codigo 
qualquer, poderemos usar o mesmo re- 
curso para preencher a tela com blocos 
erafico*; diversos. 
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Ate aqui, fimitamos nossos wireframes 
a linhas e formas bidimensionais. 
Mas, com algumas alteracoes nas rotinas 
utilizadas anteriormente, poderemos 
estruturar imagens tridimensionais. 



Na teoria, pelo mcnos, nao faz sen- 
tido fatar na criagao de urn descnho tri- 
dimensional — uma caixa, por exemplo 
— . num piano bidimensional, seja ele 
urn pedai;o de papel ou uma tela cJe te- 
levisao. No entanto, podemos recorrcr 
a tecnicas de desenho que dao as figu- 
ras a impressao de solidez. 



PERSPECTIVA E PROJEgAO ISOMETRICA 



A pintura de uma pai*.agcni, por 
.^.Wfemplo, parece ter profundidadee dis- 



tancia quando o pinior faz o desenho em 
perspectiva. Trata-se de um truque vi- 
sual baseado no fato de que os objetos 
parecem ficar menores a medida que se 
di.sianeiam, e de que linhas paralelas pa- 
recem convergir a distancia. 

A perspectiva nao e a unica tecnica 
usada nesse tipo de representaijao. Em 
desenho tecnico e comum ouvirmos fa- 
lar de proje?ao isometrica, Como no de- 
senho em perspecti\a, as linhas que o 
observador nao ve sac desenhadas num 
certo angulo. Porem, eias nao conver- 
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gem e os objctoi nao parccem ficar me- 
nores k disiancia. A vaniagem da proje- 
(,'30 ivometrica e que a dire^ao da linha 
nao akta a cscala e, por isso, pode-se 
saber a medida exala de cada linha di- 
mamente do desenho, 

Embora possamos utilizar o compu- 
lador para fazer um desenho em pers- 
pcctiva, e bem mais fdcil representar a 
proje^ao isomeirica. Esia bascia-^ic sim- 
plc^mente na cria^ao de um tercciro ei- 
,xo, alem do eixo X (horizoniaJj e do eixo 
Y (veriicalj ja exisEentes. Este terceiro 
eixo, o Z, esia posicionado num certo 
angulo com os outros dots. Qualquer li- 



nha desenhada nesse angulo pode ser en- 
tendida como ie afastando (ou se apro- 
ximando) do observador. O diagrama dos 
cixos na figura da p^gina 630 ajudara a 
entender melhor o que di5semf>s ate agora. 



ALTERApOES NO PROGRAMA 



Recorrendo a projegao isomdtrica, 
podemos produzir imagcns tridimcnsio- 
nais ijpo wireframe a partir de formas 
bidimensionais, utllizando as rotinas pa- 
ra grades c circulos apresentadas no pri- 
meiro artigo da serie. Algumas dessas 



formas bidimensionais precisarao ser 
distorcidas, de modo que se tornem com- 
pativeis com o angulo do eixo Z. Para 
isso procederemos a virias mudan<;as de 
coordenadas baseadas em principios ma- 
lematicos um tanto complicados. Mas nao 
se preocupe, pois o computador os ma- 
nuseia com facilidade, 

Em primeiro lugar, iransformaremos 
coordenadas 2-D (X,Y) em 3-D (X', V. 
Z'J, no piano desejado. Isio significa 
que devemos especi ficar o quanto o pia- 
no se esiende ao iongo do eixo Z. EjB" 
pois transformaremos as coordenadas 
3-D (X', Y', Z*) num novo conjunto de 
coordenadas 3-D (Xe.Ye.Ze). baseado 
na diretjao e posi^ao da qual olhamos o 
objeto. Finalmenie, voharemos a trans- 
formar (Xe, Ye.Ze) em coordenadas 2-D 
(Xp.Yp), para que o conjunto possa^ser 
mostrado na tela. Acompanhe os i 
gramas da p^gina 631 ; eles mosciiai 
modifica?ao de uma forma de desenfi 
nos seis lados de uma imagem. 

Durante a transforma?ao, podemos 
levar em considerai;ao a perspeciiva. 




Posso modificar o programs para de- 
senhar imagens diferentes? 

A rotina-base de nosso programa & 
a que compoe a grade, A rotina que ela 
utiliza para tra9ar Itnhas poderia ser mo- 
dtficada para desenhar outras formas. 
No caso de um triSngulo, por exempio, 
nio haverS maiores proWemas, mas, se 
tiveriDos que acessar a rotina vSrias ve- 
zes seguidas, tal como no desenho de 
um tetraedro ifigura de quatro lados 
triangulares), precigaremos de um pou- 
co mais de atengSo, No desenho da ba- 
se, OS valores dados ^s vari^vcis de 
transformapao serao iguais aos da cai- 
xa, Em compensai;Lao, a altefafSo das 
varidveis de transformaqSo (linhas 270 
a 300) para obter o Sngulo e posi^ao 
correta dos outros lados constitui uma 
tarefa muito diffcil. 

t mais ficil mudar o programa para 
que desenhe caixas de diferentes tama- 
nhos ou figuras que nSo se fecham. Fa- 
ga, por exempio, com que o valor de 
L na linha 1 20 varie com o tempo, al- 
terando, assim, o tamanho da catxa; 
depois, mude o valor de N ria mesma 
tinha. Atribuindo valores maiores a N, 
a caixa pareceri s6lida. Para evitar que 
as faces da f rente e de tr^s sejam de- 
senhadas, apague a linha 311 (que faz 
um lapo sobre a caixa) e digite: 

155 GOTO 220 

Depols, rode o programa. 



mas isso compUca bastante o programa. 
Vamos nos Umitar, assim, ao desenho 
isom^trico de uma caixa, deixando a 
perspectiva para um pr6ximo artigo. 
Como o primeiro e o ultimo conjuntos 
de coordenadas s^Lo bidimensionais, e 
todas as transforma(;6es si.o lineares (li- 
nhas retas ficam retas e linhas paralelas 
permanecem paralelas), precisaremos al- 
terar apenas as retinas de inicializa^ao 
e de desenho. 

Caso tenha armazenado em fita ou 
disco programa dado no primeiro ar- 
tigo, carregue-o novamente e digite as 
linhas que vem a seguir. E aconselh^vel 
gravar todas as listagens, pois, k medi- 
da que desenvolvermos o programa em 
artigos futures, voUaremos a chamar al- 
gumas rotinas, Se voce nao tern o pro- 
grama gravado. digite as linhas 50iX( a 
5 130 do artigo anterior desta s6rie. Bias 
compoem a rotina que desenha uma 
grade. 

Apague as linhas 150 e 155 antes de 
digitar as que se seguem, mas nao rode 
o programa alnda. 



9000 LET yX^O: t.ET XY = Or LET VX 

= 0: LET YY=1 ; LET XO=0 : LET Y0=- 



9010 BOBOEB A: PAPER 7: INK 0? 

CLS 

9070 RETUHN 

<?10 REM MOVER 

9110 PLOT X3''XX+Xlf*YS+XO+127.yX 

*XS+¥Y*YS+yO+76 

9120 RETURN 

9ZO0 REM DESENHA 

9210 DHAW XE*XX+XY*YE+XO+127-PE 

EK 23677, YX*XE+YY«YE+YO+75-PEEK 

23678 
9220 RETURN 
g.SOO REM LINHA 
9510 GQ5VB 91 00 



9520 GOSim 9200 
955 SETURN 



ffU 



9000 CLS 

90.10 XX=-l 

9040 YY=-1 

9070 HETUaN 

9500 LINE CXS«XX+XY*YS+X&+127.YX 

*XS+Yy*YS+Y0+95) - (XE*xx+xy*yE+x 

0+127, YX*XE+YY*YE+Y0+95) .15 

9550 RETURN 



B] 

9000 

] :X0 

9010 

9070 

9100 

9108 

+ 1 

9 109 

+ 7 

9110 

9120 

9200 

9208 

0+1 

9209 

+ 7 

9210 

9220 

9500 

9.5.10 

9520 

9550 

D 



XX = 1:XY - OtYX = 0:YY = 
= : YO = 

HGB : HCOLOH- 3 

RETURN 

REM MOVE 
XI » XS * XX + XY * YS + X 
27 

Yl =- YX * XS + YY * YS + V 
6 

HPLOT XI. Yl 

RETURN 

REM DESENHA 
X2 = XE * XX + Xy * YE + X 
27 

Y2 = YX * XE + YY * YE + Y 
6 

HPLOT XI, Yl TO X2.Y2 

RETURN 

REM LINHA 

GOSUB 9100 

GOSUB 9200 

RETURN 



9000 PCLS 

9030 XX-1 

9040 YY-l 

9070 RETURN 

9500 LINE(XS*XX+XY*YS+X0+127,YX 

•Xg+yY*Y3+Y0*95) - (XE*XX+XY"YK+X 

0+127. YX*XE+YY*YE+Y0+95) , PSKT 

9550 RETURN 



Em perspectiva, os cantos da caixa 

sin convergente.^; em proje^ao 

isometrica, permanecem paralelos. ^-^'Z i 

As duas formas podem ser ,'' / / 

represenladas num sis tern a 

de tris coordenadas. ,•■'' 
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Para reprrscntar uma imagem em 3-D num 
piano bidimen<>ioi]al, um quadrado na origem 
(1) V desUicttdo a» lungo dos eixos X e Y 
e, com um novo deslocamento (2), rorma as 
faces da frente e de Iris do cubo. Para 
formar os lados, o quadrado e di^itorcido 
(3) na dire^ao ¥ e dcpois deslocado <4 e 5) 
ao longo dos eixos. Da mesma maneira, 
as faces superior e inferior sao obtidas 
pela distor^ao (6) na dir«(ao X e 
deslocamento <7 e 8) ao longo dos eixos. 



4 y 




7 y 




8 y 




A rotina das linhas 9000 a 9070 ini- 
cializa as varidveis de trans formagao 
(XX,XY,YX,XO,YO) em valores que 
fazem a rotina de desenho f uncionar co- 
mo antes. No micro TRS-Color nao e 
aecessario inicializar variaveis, mas faze- 
lo faciliia bastante a compreensao do 
programa. 

A rotina movimenta os eixos de ma- 
neira que a origem destes esteja no cen- 
tre da tela, A origem e deslocada porque 
fica mais facil supor que o olho do ob- 
sen'ador est^ diretaraente acima dela no 
centre da tela. Isso Heard mais claro no 
pr6ximo artigo, onde veremos como 
mudar o ponto de vista e acrescentar 
perspectiva. 

Para observar o efeito de cada varia- 
vel de transforma<;ao e ter uma ideia 
mais clara do que esta acontecendo, mo- 
difique as linhas 100 a 180: 



100 GOSUB 90QO 
120 CLS 



130 LET XA=-40: LET YA--20r 

LET LU=4 0! LET LH=4 0! LET NX = -'i 

: LET «¥-■! 

l.^.") GOSUB 5000 

140 LET XA=0- LET YA=-20: LET 

LW=40: LET LH=40; LET NX=10: 

LET NY=10 

145 dOSUR 5000 

160 INPUT "INTRODUZA XX,XY,YX, 

YV ,X0, YO" ,XX,XY,yX,YY.XO, YO 

1?0 GOTO \?.Q 

180 STOP 



yo ";Xx,xY,yx,YY.xo.yo 

170 GOTO 120 



m 



100 SCREEN 2:C0L0H 15,4,4 

105 P.T=4*ATN(1) 

110 GOSUB 900 

IZO CLS; SCREEN 2 

130 XA=-4G : YA--20 : LW-40 : LH-40 r N 

X=10:^fy=10 

135 GOSUB 5000 

140 XA=0:YA— 20:Ltt=40:LH-=4Q : NX- 

10 :Ny=10 

145 GOSUB 5000 

150 A$ = TNKE¥S;IF AS = "'' THEN 150 

ELSE SCREEN OrCLS 
160 I^fPUT"ENTHE XX.XY , YX , YY , XO , 



a] 



100 


GOSUB 


9000 










120 


HOME 


: HGR ; 


UTAB 


(24) 






1.10 


XA = - 


- 40:YA 


= 


20:LW = 




40:LH = 40 


:NX = 5 


NY = 


5 






1.35 


GOSUB 


5000 










140 


XA - 


:YA - - 


- 20: 


LW - 


40 


L 


H = 


40: NX = 


= 10:NY 


= 10 








145 


GOSUB 


5000 










160 


INPUT 


"ENTRE 


XX.XY.YX, 


yy 


X 


O.YO "!XX,XY, YX,YY,XO, 


YO 






170 


GOTO 


L20 










180 


STOP 













Q 



100 PMODK 4: SCREEN 1.1 

105 P1-4«ATN{1) 

110 GOSUB 9000 

120 CLS :PCLS: SCREEN 1,1 

130 XA— 40:yA— 20:LH-4(J:LB-40:N 

X-5:NY-5 

135 GOSUB 5000 



t 



140 XA-0:yA--20:LW'-40:LH-40:HX- 

10:HY-10 

145 OOSUB 5000 

150 A3«INKGy3:IF A.S-'" THEN 150 

160 INPUT* IHTIIODUZA XX.XY.yX.YY 

,XO.ifO "jXX.XY.YX.YTf .XO.ItO 

170 GOTO 120 

Ao rodar o programa, voce verd um 
pequeno quadrado no centro da tela, 
com uma linha pedindo que fornega no- 
vos valores para XX.XY.YX.YY.XO e 
YO (no MSX, deve-se apertar qualquer 
tecia para que a linha seja vista). Estas 
sao as variaveis de transformagao. 

XX e YY ajustam os fatores da esca- 
la nas dire?des horizontal e vertical. Se 
fornecermos valores negativos a essas 
variaveis, ocorrerfi uma reflexao sobre 
respect ivo eixo- XO e YO ajustam a 
posigao da grade na tela. XY e YX sao 
responsaveis per rotafoes e distorgoes 
no desenho. As variaveis de transforma- 
gao tern valores iniciais XX = 1 , XY = 0, 
YX = 0, YY= I, XO = 0e YO = 0. Para 
modificar a imagem, precisaremos for- 
necer diferentes valores a essas variaveis; 
por isso, a linha 160 contem uma decla- 
ragao INPUT. 

Aqui estao alguns conjuntos de valo- 
res que voce pode experimentar no pro- 
grama. Fornega-os lado a lado, separa- 
dos por virgula, exatamcnie na ordem 
em que sao pedidos, e tecle < ENTER > 
ou < RETURN > (no Spectrum, tecle 
< ENTER > ap6s cada um): 
- 1,0,0,1,0,0: causa uma retlexao em re- 
tagao ao eixo vertical na ^rea central da 
teta. 




1 



FORA DA TELA 

Alguns computadores nao conse- 
guem desenhar pontos que estejam fo- 
rs da tela. Assim, se fornecermos a L 
um valor muito grande, o programa se- 
f& interrompido e obteremos uma men- 
sagem de erro. Nao 6 o caso dos micros 
da linha MSX, os quais desenham qual- 
quer segao de pontos, ignorando aque- 
tes que estiverem fora da tela. 
Contanto que a imagem esteja inteira- 
mente na tela, os usu^rios de outros 
computadores nao deverao ter nenhum 
tipo de problema. 

No pr6ximo artigo, veremos como 
fazer uma checagem no programa, de 
modo a garantir que somente linhas 
posslveis sejam desenhadas- Elimirja- 
remos, assim, as interrupgoes por men- 
sagens de erro. 



0.5,0,0,2,0,0: aumenia a imagem duas 
vezes na vertical e diminui pela meiade 
na horizontal, 

1,0,0,1,100, -50: move a imagem cem 
unidades para a direita e cinqiienta uni- 
dades para cima (ou para baixo no caso 
do Spectrum). Usuarios do Spectrum 
podem tentar 1 ,0,0, 1 ,50, - 40 para uma 
mudanga mais significativa. 
0, - 1 , 1 ,0,0,0: faz a imagem rodar em 90 
graus. 

1 ,0.5,0, 1 ,0,0: distorce a imagem na ho- 
rizontal. 

1.0.5,0.5,1,0,0: distorce a imagem na 
horizontal e na vertical. 

Para prever o efeito de cada con] un- 
to de valores e precise algum conheci- 
mento sobre aritm^tica de matrizes. 
Ponanto, embora saibamos como variar 
a forma do desenho, e um pouco mais 
dificil dclerminar a combinagao que 
produzira uma forma em 3-D. O pr6xi- 
mo programa faz isso com as mesmas 
rotinas que temos usado. Apague as li- 
nhas 135, 145 e 175 do programa ante- 
rior antes de inserir esta segao: 



1,10 GOSUB 900 Q 

120 LET L-108: LET N=4 

I.IO LET DX=.4.'i*L: LET DY=.3*L 

140 LET XN=-(L+DX)/2 

LIO LET VN=-(L+DY}/Z 

160 LET XO=XN 

170 LET YO=yN 

180 GOSUB 500 

190 LET XO=XN+DX 

200 LET YO-YN+DY 

210 GOSUB SOO 

220 LET XY=DX/L 

2. TO LET YY=DY/L 

240 GOSUB .50 

250 LET yo=YN+L 

260 GOStJB 500 

270 LET XX=DX/L 

280 LKT ¥X=DY/L: LET YY=1 : LET 

YO=yN 

290 GOSUB SOO 

.■?00 LET XO=XN+L 

310 GOSUB 500 



LET XO=XN 
LET YO=yN 



LET XY-'O 
LET YY=1: 



.120 


STOP 




500 


LET XA=Or LET YA=0 : 


LET LW 


= L: 
= N 

510 


LET LH=L: LET MX=N: 


LET NY 


GOSUB 5000 




520 


RETURN 





m 



1 10 GOSUB 9000 

120 L-120:N=2 

1.10 DX= .45*L:DY=, 

140 X!Vt=- (L+DX) /2 

150 YN=-(L+nY)/2 

160 XO=XN 

] 70 yo=yN 

180 GOSUB 500 

140 XO=XN+DX 



.1*L 



200 YO^YN+DY 

ZIO GOSUB 500 

220 XY-nX/L:XO=XN 

2.10 Yy=Dy/L-. yn^YN 

2 40 GOSUB 500 
2.'i0 yO = YN+L 
260 nOSUB 500 

270 xx=nx/L;xy=o 

2B0 YX=DY/L:YY=l:YO=YN 
290 GOSUB 50 
.1.00 XO = XN+L 

.110 GOSUB son 

320 GOTO 120 

.■iOO XA = : YA=0 ; LU = L : LH=L : NX = N r NY 



=-N 




510 


GOSUB 5000 


=>zn 


RETURN 


j|_ 




100 


GOSUB 9000 


120 


L = 108:N » 4 


130 


DX = .45 * L:DY = . .1 


140 


XN = - CL + DX) / 2 


150 


YN » - (L + DY) / 2 


160 


XO = XN 


170 


YO - YN 


180 


GOSUB 500 


190 


XO = XN + DX 


200 


yo = YN + DY 


210 


GOSUB 5 00 


220 


XY = DX / L:XO = XN 


230 


YY " DY / L:YO = YN 


240 


GOSUB 5 00 


25 


YO = YN + L 


260 


GOSUB 5 00 


270 


XX = DX / L:XY = 


2B0 


YX = DY / L : YV = 1 : Y 


290 


GOSUB 500 


.100 


XO = XN + L 


310 


GOSQB 500 


320 


STOP 


500 


XA = OrYA = OrLW = L 


:NX 


= N:NY = N 


510 


GOStJB 5000 


520 


RETURN 


D 


100 


PK0DE4 : SCitEEN 1,1 


110 


GOSUB 9000 


120 


L-120:M-5 


130 


DX-.45*L;Dy-.3*L 


140 


XN— (t+DX}/2 


150 


YM— {L+Dy)/2 


160 


XO-XH 


170 


YO-YH 


IBO 


GOSUB 500 


190 


XO-XM+DX 


200 


YO-YN+DY 


210 


aOSUB 500 


220 


XY-DX/L: XO-XH 


230 


YY-DY/L:ltO-YN 


240 


OOSUB 500 


250 


YO-YN+L 


260 


OOSUB 500 


270 


XX-DX/L:XT-0 


2S0 


YX-DY/L:XY-l:XO-YN 


290 


GOSUB 500 


300 


XO-XN+L 


310 


GOSUB 500 


320 


GOTO 320 



YN 



= L:LH 
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500 XA-0:YA-0:Ly-L:LH-L:IIX-N:Ny 

-N 

510 OOSUB 5000 

520 KETURN 

Ao rodar o programa, um cubo apa- 
recera no centro da tela. Seus iados sao 
lra<;ados peia mesma rotina que desenha 
grades. Esta, com as vari^veis adequa- 
das, muda a imagem para a forma de- 
sejada. Duas outras variaveis devem ser 
ajustadas antes que o cubo seja trata- 
do: a variave! L (que determina qual o 
tamanho do lado do cubo) e a variavel 
N {que determina o ntimero de quadra- 
dos na grade), 

A variivel DX especifica o quanto, 
a direita ou a esquerda, a face de tras 
esta da face da frente; DY define o 
quanto, acima ou abaixo, estas mesmas 
faces estao uma da outra. DX e DY fa- 
zem com que o cubo pare^a ter largura 
e altura iguais, nao adquirindo a forma 
de um paralelepipedo. 

Um outro par de variaveis — XN na 
linha 140 e YN na linha 1 50 — especifi- 
ca a posi^ao tnicial da face da frente do 
cubo. Esses valores sao transferidos pa- 
ra XO na linha 160 e YO na linha 170. 
Em seguida, a linha 180 desenha a face 
de tras. Como ambas as faces sao iden- 
ticas, para desenhar a face da frente pre- 
cisamos apenas de um incremento na 
direijao X (linha 190) e outro na dire^ao 
Y (linha 200). 

As linhas 220 e 230 trans form am a 
grade (XY e YX) e redefinem os valo- 
res. Depois, a linha 240 desenha a face 
de cima. A linha 250 reposiciona verti- 
calmenie esse desenho para fazer a face 
de baixo, que e iguai k de cima. De mo- 
do similar, as linhas 270 a 310 transfor- 
mam a grade para obter os Iados direilo 
e esquerdo. 

Todos OS quadrados da grade tem, 
em cad a lado, o mesmo formato e o 
mesmo tamanho, e todas as linhas pa- 
raleks permanecem paralclas, ja que 
nao fizemos nenhuma modificafao pa- 
ra o desenho em perspectiva, nem adap- 
tamos o programa para mostrar outros 
anguJos do cubo. Estes serao nossos 
proximos passes no estudo das tecnicas 
de elabora^ao de wireframes. 

Enquanto nao chegamos ]A, acrescen- 
te um laco ao nosso cubo, transforman- 
do-o num pacote de presente. Para isso, 
mude as linhas 120 e 130 e, depois, adi- 
cione as linhas que se seguem, Nao se 
esqueca de gravar o programa! 



120 LET L=60: LET N=2 
130 LET DX=.3*L: LET DY=.4*L 
311 GOSUB 99?0 
9520 FOB M=0 TO PI STEP .01 



9<5.Tn LET n=COS (6*«) 

9940 LET S=D*COS M: LET T=D*STN 

M 
9950 LET S=S*20: LET T=AB3 (T*2 
0) 

9960 PLOT S+127.T+106 
997Q NEXT M 
9980 HETIJRN 



m 



120 L=60:N=2 

130 DX=.6*L:DY=.5*L 

311 oostJB lonoo 

10000 RRM fits 

lOOlO FOR M=n TO PT STEP. 02 

1002O D=C0Sf6*M) 

10030 S=r)*COS(M) ■.T = 0*SlNtM) 

10040 S»S*Z'5 -T^-ABa (T*20) 

lOO'iO PSET(fi-t-] Z7,T+6S) , l.S 

10060 NEXT 

10J30 RF.TUPN 

a] 

1 20 L = 60 :N = 2 

130 DX = . 3 * L:DY = .4 * L 

31] <10SUB 9920 

9920 FOR M = PT TO 2 * PT STEP 

.01 
9930 D - COS (6 * M) 
9940 S = D * COS (M) :T = D * 
STN (M) 

99fiO S = S*20:T= - ABS (T 
* 20) 

9960 HPt,OT S + 12 7.T + 46 
9970 NEXT M 
9980 HETU3N 



D 

100 PM0DI4- SCREEN 1,1 

110 GOSUB 9000 

120 L-60:H-'2 

130 DX-.6»L:DY-.5*L 

140 XN— (t.+DX)/2 

150 5fH— (L+DY)/2 

160 XO-XN 

170 YO-YN 

laO GOSUB 500 

190 XO-XH+DX 

200 YO-YN+DY 

210 GOSUB 500 

220 XY-DX/L:XO-XN 

230 YY-DY/L: YO-YN 

240 GOSUB 500 

250 YO-YN+L 

260 OOSUB 500 

270 XX-DX/L:XY-0 

280 YX-Dy/L:Yy-l:YO-TN 

290 GOSUB SOO 

300 XO-XN+L 

310 GOSUB 500 

311 GOSUB 10000 
320 GOTO 320 

500 XA-0:YA<'0:LW-L:LH-L:NX-N:NY 

-N 

510 GOSUB 5000 

520 RETURN 

10000 DRAt4-BM151,6S' 

10010 FOR M-0 TO 4«ATH(1) STEP 

.02 

10020 D-C03{6*MJ 

10030 S-D«COS(M) :T-D«SIN(H) 

10040 S-S"24:T-ABS[T"20) 

10050 LIKE-{S+127,65-TJ .PSET 

10060 NEXT 

10130 RETUBN 
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Seja qual for a fonte de seus dados - 
orgamento dom6stico, neg6cios e at6 
hobbies -, organize-os em graficos de 
barras ou de segmentos. Serd mais 
f^cil entender o que elss t§m a dizer. 



Ja tratamos, em artigo anterior, da 
organiza^ao de dados em graficos. Ve- 
remos agora como usar grdficos de bar- 
ras (histogramas) ou de segmentos para 
mostrar dados numericos numa forma 
nao linear. Esses dois lipos de graftco, 
empregados com freqiiencia na apresen- 
ta^ao de dados estatssticos e comerciais, 
podem set coloridos, o que os torna 
muito mais atraentes, 

O grafico de barras e especialmente 
indicado para a organiza^ao de dados 
que flutuam bastante. O de segmemos 
e util sobretudo quando se quer demons- 
trar como diferentes valores estao rela- 
cionados como partes de um todo. As- 
sim. para fazer a escoiha mais adequa- 
da, leve em conta o tipo especifico de 
dados de que dispoe. 

Os programas que se seguem mos- 
tram como empregar o microcomputa- 
dor na elaboragSo dos dois tioos de erd- 
fico. Devido a falta de comandos grafi- 
cos adequados no ZX-81 e no TRS-80, 
deixamos de apresentar programas pa- 
ra essas mdquinas. 



MONTAGEM DO GRAFICO DE BARRAS 



A rotina para monlar o grafico de 
barras e essencialmente a mesma de 
qualquer outro grafico. Uma vez de pos- 
se dos dados, ^ necessdrio entrd-los no 
computador; em seguida i preciso defi- 
nir OS eixos, desenhar as barras e acres- 
centar legendas. Como vimos no artigo 
da pdgina 481, podemos desenhar as 
barras a medida que entramos os dados 
ou entrar todos os dados prevlamente e 
so depois tra^ar o grafico. Uma tercei- 
ra opgao consiste em ler os dados por 
meio das instrugoes READ/DATA, 
alterando-os sempre que se quiser um 
grdfico diferente, Seja qual for o meto- 
do escolhido, convcm armazenar os da- 
dos numa matriz num^rica, de modo 
que o micro possa identificar as coor- 
denadas de cada barra, 



LEITURA DOS DADOS 



f 



Digite as linhas seguintes para o com- 
putador ler OS dados. Ao executi-las, 
nao vera nada na tela, mas e bom rodar 



cada parte do programa para evitar er- 
ros. (No Apple ou no TK-2000, para ter 
de volta a tela de texto, digite TEXT e 
tecle RETURN.) De qualquer forma, 
voce podc verificar se aconteceu algo di- 
gitando PRINT A(3), por exemplo. No- 
te que OS dados ja foram armazenados 
na memdria do micro. 



10 LET n=iz 
2Q DIM a{n) 
70 FOB t-1 TO n 
HO READ a (ty 
90 NEXT r. 
1010 DATA 3,6,^,9 



6 . .1 , 6 , 8 . .'i , 5 , 9 



,4 



5 N-12 

20 DIM A<NJ 

60 PMODE 3, 1 :PCLS: SCREEN 1, 

70 FOR T=l TO N 

80 HEAD A{T) 

90 NEXT 

JO 10 DATA 1,5, 

,10 



3,8,6,2,8,5.2.9.5 



m 



JO N=l 2 

2 nm A (Ni 

60 ror.ofi 10,5,5 

70 FOR T=l TO N 

8 REAO A(T) 

90 NEXT 

.3010 DATA ; ,5,6, 

,8 



;SCBEKN 2 



^,7,9,4,1,8,3.9 



QEEl 



]0 


N = 12 








20 


DIM A(N) 








60 


HOME : HGR 








70 


FOR T - 1 TO 


N 




80 


READ A(T) 








90 


NEXT 








3010 DATA 2 


.5 


3 


8 



6.2.0.9.7, 



8,5,4 



Neste mddulo, o programa seleciona 
o modo grafico, determina o niimero de 
barras a serem tragadas — 12 (linha 10, 
ou 5. no TRS-Color) — e dimensiona a 
matriz para esse niimero (Unha 20). 




Pode-se usar um niimero raaior para 
lra(;ar mais barras. Nesse caso, h neces- 
s4rio acrescentar dados a linha 3010, pa- 
ra que haja uma equivaJencia entre o nii- 
mero de barras e o de dados. £ interes- 
sante ter um niimero maior de dados 
quando se est^ testando o programa, de 
modo que se possa aumentar ou dimi- 
nuir o niimero de barras sem risco de 
que ocorra um erro do tipo "falta de da- 
dos" ou end of data. 




COMO FAZER UM HISTOGRAMA 



GRAFICO DE BARRAS 



TRIDIMENSIONAL 



PROGRAME UM GRAFICO 



DE SEGMENTOS 



A ESCALA DOS EIXOS 



O computador conhece agora o va- 
lor absoluto de cada barra, Precisamos 
informd-lo sobre como fazer a escaia 
dos dados, de maneira que cada conjun- 
to deles preencha a tela de forma ade- 
quada. Caso contrdrio, pode-se ter nti- 
meros tao pequenos que praticamente 
nao sejam vistos ou, no outro extreme, 
valores que caiam fora do intervaio pos- 
sfvel da tela. Para fazer a escaia, digite 
as pr6ximas linhas. Novamente nada vai 
aparecer na tela, mas execute o progra- 
ma como um teste. 



.10 LET dx=2:i9/n 
40 HEAD dy 
.1000 DATA 18 



Q 

30 DX-164/N 
4 HEAD DY 
3000 DATA 1 



Wi 



.10 1)X-L64/N 
4(1 READ DY 
,1000 CAT A ] 



30 DX = INT 
40 HEAD DY 
.1000 DATA 



[170 / N) 



15 



Esta parte do programa calcula a es- 
caia do eixo X dividlndo o comprimen- 
to disponivel pelo numero de barras (li- 
nha 30). O valor maximo de barras va- 
ria de micro para micro, mas, conhecen- 
do o tamanho de sua tela graftca e mu< 
dando os valores de N, voce identifica- 
rd facilmente o valor mais adequado pa- 
ra um grdfico legivel. 

Os valores do eixo Y sao muldplica- 
dos por um fator para que tomenn o ta- 
manho mais adequado. Esse valor nao 



so PROGRAMACAOBAt 



e encontrado auiomaticamente, mas li- 
do (linha 40) de uma dedarafao DATA 
(linha 3000 ). Para cada novo conjunto 
de valores, avalie qual o melhor fator a 
ser usado e coloque-o na linha 3000. 
Nesse ponto, voce pode montar uma ro- 
tina para dar entrada a tal valor a par- 
tir da linha 40 (usando INPUT). Se pre- 
ferir agir assim, nao se esque^ja de apa- 
gar a linha 3000. 

O restante do programa c composto 
de duas rotinas: uma que tra?a os eixos 
e outra que desenha as barras. Digitc 
mais estas linhas, mas nao as execute, 
uma vez que as rotinas chamadas ainda 
nao se encontram na memoria e um er- 
ro sera delectado. 



100 GOSUB 1 000 
140 GOSUB 2000 
160 STOP 

As linhas 100 e 140 chamam sub- 
rotinas que traijam os eixos e barras. 



afffi 



Y-188-16*A(T) 



100 GOSUB 1000 

110 FOH T^l TO N 

130 X-CT-1) *DX+18 

*DY 

140 GOSUB 2000 

150 NEXT 

160 GOTO 160 



A linha 100 desvia o programa para 
a linha que desenha os eixos. A 1 10 abre 
um lago que marca o mimero de barras 
a serem desenhadas. A cada volta, a li- 
nha 130 ajusta a coordenada de X — 
multiplicando-a por DX e somando 18 
para deixar uma margem k esquerda — 
e a coordenada de Y — subtraindo do 
total de linhas disponiveis o valor lido 
(A(T)) multiplicado pelo fator DY (da- 
do) e pela constante 16. A linha 140 des- 
via o programa para a rotina que dese- 
nha as barras e a 150 fecha o lapo, cha- 
mando o pr6ximo valor. 



[iEE] 



DX + 8 



A + 3 



A:y 



100 GOSUB 1000 

110 FOR T = 1 TO N 

130 X = CT - ] ) " 
= 150 - A(T) * DY 

140 GOSUB 2000 :A 
IhO NEXT 
160 END 

A linha 100 chama a sub-rotina que 
tra^a os eixos. A linha 1 10 abre um la- 

I<;o que determina o mimero de barras a 
serem desenhadas. Em seguida, a linha 



130 determina a coordenada X para o 
ponto inicial do tragado da barra, mul- 
tiplicando T-1 por DX e somando 8 — 
para garantir uma margem i esquerda 
— e A (que provoca um avan^o de uma 
barra em relacao k outra — para evitar 
que as barras fiquem coladas umas as 
outras). A coordenada Y (altura da bar- 
ra) e calculada subtraindo-se do total de 
linhas disponiveis o valor lido {A(T)) pe- 
lo fator DY (que voce determina). A li- 
nha 140 chama a sub-rotina que desenha 
as barras e a seguir incrementa o valor 
de A. A linha 150 fecha o laco, chaman- 
do o pr6ximo valor a ser desenhado. 



DESENHO OAS BARRAS 



Agora, digite as rotinas que tragam 
OS eixos e desenham as barras: 



1000 PLOT 16, Oi DflAU 0,170 

1020 PLOT 16,0; DHAW 2.15,0 

1030 RETURN 

2000 FOH a=l TO n 

20 10 LET 3-16+ (a-1) *dx 

2020 FOH t=3 TO g+(ax-4 

20 30 PLOT t,n: DRAW 0,a(a)*dY 

2040 NEXT t. 

2100 NEXT a 

2110 BETURN 

As linhas 1000 e 1020 desenham os 
eixos, deixando uma margem de dezes- 
seis ur.idades a esquerda do eixo Y. Pa- 
ra desenhar as barras, a linha 2000 to- 
ma um valor de cada vez, a linha 2010 
coloca o valor na escala (*dx) e a linha 
2020 monta um la^o para desenhar as 
linhas verticals que formarao a barra. 
O "-4" no fim da linha provoca um pe- 
queno espafamento entre as barras. As 
linhas restantes desenham as linhas que 
completam a barra e fecham os respec- 
tivos la^os. 

D 

1000 LINEC0,25)-<0, 191) ,PSET 

1020 COLOR 3 

1030 LINE -(255.191) .PSET 

1050 COLOR 2: FOR T=0 TO 10 

1060 LINE(0,191-T*166/10)-(3.19 

1-T*166/10) ,PSET 

1070 NEXT 

1080 RETURN 

2000 COLOR 2 

2090 LINE (X, 190} -CX+DX.Y) ,PSET, 

BF 

2100 RETURN 

A primetra linha desta parte do pro- 
grama desenha o eixo Y, de cima ate em- 



baixo, na tela. A linha 1030, por sua 
vez, se incumbe de tra^ar o eixo X, da 
esquerda para a direita. Observe que o 
sinal "'-" faz com que seja tragada 
uma linha da ultima posi^ao do cursor 
at6 a posi<;ao indicada entre parenteses, 
A linha 1050 muda a cor e abre um la^o 
que executa a marcacao de uma escala 
no eixo Y. 

A rotina seguinte (linhas 2000 a 2100) 
desenha um retanguio para cada barra 
e o preenche de amarelo. 



Ill 

1 



i( 

K 
I ( 

11 

21 
2( 
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1000 LTNE(8,2'J)-(8.1<)n ,6 

1030 LINE -(ZSS, 191 ) , 15 

1050 FOB T=0 TO 10 

1060 LINE:C8,191-T*166/10)- CJO. 

91-T*166/1 0) . 1 S 

1070 NPXT 

1080 RETURN 

2000 COLOR J 0,5, 5 

2090 LTNE(X, 190) - (X+DX, Y) ,2,BF 

2100 RETURN 



1 




A linha 1000 trapa o eixo Y, deixan- 
do uma margem de oito unidades, A li- 
nha 1030 tra?a o eixo X. O laijo das li- 
nhas 1050 a 1070 marca uma escala no 
eixo dos Y para tornar mais facil a lei- 
tura dos dados. 

A rotina das linhas 2000 a 2100 tem 
como tarefa mudar a cor de frente para 
amarelo e desetihar um retangulo colo- 
rido para cada valor. 



HIE] 



I 



1000 HCOL0R= 3: HPLOT 5,155 TO 

5.5 

1010 HP LOT 5,150 TO 270,1'in 

10 20 FOB T = TO 10 

1030 HPLOT 2, ISO - T « 14.5 / 1 

TO 5,150 - T * 145 / 10 

104 NEXT 

1050 RETURN 

2000 HG0L0R= 5r FOR S = 1 TO D 
X 

2010 KPLOT X + S. ] 50 TO X + S. 
Y 

2020 NEXT 

2100 RETURN 

As linhas 1000 e 1010 traijam os ei- 
xos Y e X, respectivamente. As linhas 
1020 a 1040 formam um lafo para mar- 
car uma escala no eixo Y. A rotina se- 
guinte muda a cor para azul e monta um 
la<;o que desenhara cada barra como 
uma seqiiencia de linhas verticals para 
valor da barra, 



O gr^fico de barra s i bastante util na 
aprvwniiifao de dados que flutuam muifo niim 
dotenninado piTiodo de tempo — por 
exemplo, us indices pluvjom^lricos mensais 
DO decorrer de um ann (an lado). 
J& o griUco de segmenlos e especial mente 
indicsdo quando se quer mostrar como 
diferentes valorem se relacionam enquanto 
partes de um lodo. 




TEflCEIRA OIMENSAO 



Ao exec u tar esse programa, voce ve- 
ra que a aparencia do grafico de barras 
e muito menos academica e mais atraen- 
te que a dos grdficos lineares, em bora 
OS dois tipos sejam construidos com o 
mesmo niimero de dados. Mas pode-se 
melhorar ainda mais a apresenta^jao dos 
dados com a adi^ao de um efeito tridi- 
mensional as barras, o que dara ao de- 
senho um aspecto solido e natural e um 
destaque especial as cores. 

Antes de entrar o novo programa, 
grave o que voce jd tem na memdria do 
computador (para uma posterior com- 
paracao). Depois, sem digitar NEW, te- 
cle as alterafoes que se seguem. Se voce 
quiser usar os comandos de edi^ao do 
seu micro para reduzir o trabalho de di- 
gitagSo, fique aiento para nao deixar es- 
capar pequenas diferengas que possam 
existir entre as linhas. 



Acrescente ao seu programa apenas 
algumas linhas. Veja adiante. 



a 



130 X-(T-1)*D2+18:Y-I68-16*A(T) 

*DY 

1000 LINE {0, 191) -(0, 25) ,PSET: L 

INE- (DX* . 6 , 26-D2) . PSET 

1020 PAINT (2,100) ,4 :C0LOR 3 

1030 LINE - [255-DX*.6, 191) ,PSET 

: LINE- (255, 191 -DZ) , PSET 

1060 LINE (0,191-T*166/10>-<DX* 

.6, 191-T*166/10-DZ) ,PSET 

2000 COLOR 4 

2090 LINE{X.18e)-(X+DX,Y) ,PSET. 

BF 



m 



■iO DZ-.50/{N+l) 

lis TF A(T)-0 THEN 160 

120 D2-DX*1 .4 : 1F1)X>40THEND:? = DX«- 

15 

130 X- (T-U *D2 + 18: Y-IB8-16*A(T) 

*Dy 

1000 LINE [B, 1911 - {8, 25) ,6: [.INE 

-(8+DX* .6, 26-D?) ,6 

1010 LINE - {8^DX* 6,iqi-DZ) ,6: L 

TME - (8, 191 ) ,6 

1020 PAINT (9, 1801 ,6 

1030 LINE (8,191)-(255-DX*.6, 19 

l),I.5:LrNE - (255, 191-DZ) , 1 5 

1040 [INE - (8 + DX* .6, 19! -DZ) . 15: 

LINE - (8, 191) . 1 5 : PAFNT (100,190 

) ,15 

10.50 FOR T^n TO 10 

1060 LTNE(8,19J-T«lfv6/10)-(fl+DX 

*.6,191-T*166/10-DZ) . 15 



HIS] 



■50 DZ = 50 / (N + 1) : IF D2 > S 

THEN DZ = 5 
innO HCOLOB= 3-. HPLOT S.l.'jS TO 

5,5 TO DX " .7,5 - DZ TO DX * 
.7,150 - D2 TO 5,130 
1010 BPLOT 5,150 TO 270 - DX « 

,7,150 TO 270.150 - DZ TO DX * 

.7.150 - DZ 

Nao execute ainda o programa, pois, 
como ele nao esti completo, voce obte- 
ra apenas uma mensagem de erro. Di- 
gite mais estas linhas: 



lOiO DRAW 4,4: DRAW 0.-170 

2050 PLOT 16+(a-I)*dx,a<a)*(iy 

7 060 DRAW 4,4 

2070 DRAW dx-4,0 

2n75 DRAW -4,-4: DRAW 4,4 

2080 DRAW 0,-a (a) *dy 

2090 DRAW -4,-4 



a 



so 02-50/ (N+1) 

115 IF A(T)-0 THEN 160 

120 D2 = DX''l -4:IF DX>40 THEN D2 = 

DX + IS 

1010 LINE -(DX*.6.191-DZ) ,PSET; 

LINE-(0, 191) ,PSET 

1040 LINE - (DX*.6, 191-DZ) , PSET: 

LINE -C0,191) .PSET:PAINT(127,18 

9) ,3 

2010 LINE a+DX,]L88J -(X+DX«1.6. 

18S-DZ) , PSET: LINE- (X+DX*1 . 6 , Y-D 

23 ,PSET 

2020 LINE - (X+DX,Y) , PSET: LINE - 

(X+DX, 1B8) .PSET 

2030 PAINT (X+DX+2,185) .4 

2040 COLOR 3 

2050 LINE (X,Y)-(X+DX*.6,S-DZ) , 

PSET: LINE- (X+DX*1 . 6 , Y-D2 ) .PSET 

206O LINE -(X+DX,Y) ,PSeT:LINE - 

(X.Y) ,PSET 

2070 PAINT CX+DX/2,y-l) .3 

2080 COLOR 2 



m 



2000 COLOR12,5.5 

2010 LINE [X+DX, 188) -(X+DX*1.6, 

1B8-DZ):LINE - (X+DX* 1 . 6 , Y-DZ) 

2020 LINE -(X+DX, Y) -LINE -(X+DX 

.188) 

2030 PAINT CX+DX+2.185) 

2050 LINE [X,y)-(X+DX*,6,Y-DZ) : 

LINE - tX+DX*l .6, Y-D2) 

2060 LINE -CX+DX.Y) :[.INE -(X,Y3 

2070 PAINT (X+DX/Z,Y-i) 

2090 LINE (X, 188)- (X+DX. Y) ,.T,BF 
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2000 FOB S = 1 TO DX 

20 10 HCOr.OH- 3- HP1.0T X + S 



DX * .7. Y - DZ TO X + S + DX * " 

. 7. 1 50 - DZt HCOLOH= 6 

2020 HPLOT X + S,150 TO X + 3, 

Y 

2 030 HPLOT TO X + S + DX * . / 

,Y - nZ: REM TO X + J + DX * . 

7 , Y - DZ TO X + I , Y 

2040 NEXT 

2050 HPLOT TO X + S + DX " .7 

.150 - DZ 

Voce tem agora uma beiissima ima- 
gem tridimensional na tela. Como exer- 
cicio, modifique os valores dos coman- 
dcs de cores para selecionar aquelas que 
mais tiie agradam. Fa?a um registro das 
linhas que precisam ser mudadas para 
aJterar a escala do grdfico, de modo que 
voce tenha uma referencia a mao quan- 
do for usar o programa mais tarde. Uma 
maneira simples de fazer esse registro 
consiste em utilizar linlias no programa 
com a declaraifao REM. Ela indica que 
seu conteiido i exclusivamente informa- 
tivo, nao devendo. portanto, ser inter- 
pretado como instrugao ou comando ao 
computador. 



grAfico de SEGMENTOS 



Outra forma interessante de apresen- 
tagao de dados e o grafico de segmen- 
tos — um tipo de grafico circular que 
requer apenas uma coordenada (coorde- 
nada polar) para cada informafao, re- 
presentando por meio de um angulo o 
tamanho de cada dado. 

Estruturalraente, o programa para 
desenhar um grafico de segmentos e sim- 
ples. Para ver como funciona, entre e 
execute as linhas seguintes. 



10 DIM a C12> : LET n = 
20 CLS 

4 PRINT AT 5,14: "MENU" 
50 PRINT AT e,l0;"l- Introduz 
ir dadoa" 

60 PRINT AT TO. 10 ; "2-firaf ico" 
70 PRINT AT 12, 10; "3- Saida' 
80 LET a$-INKEY3: IF aS<"l" 
OR £iS>"3" THEN GOTO 80 
90 GOSUB VAL a$*200 
100 GOTO 20 
200 CLS : LET n= 1 
210 PRINT "Item No. ";n,: 
INPUT LINE a$: PRINT aS: IF 
aS="" THEN RETURN 
220 LET a(n)=VAL 3$: LET n=ri+l 
230 IF n<13 THEN GOTO 210 
240 LET n=n-l: RETURN 
400 IF n=0 THEN RETURN 
410 CLS : LET tt = 0: FOR t. = l TO 
n: LET tt=t t.+a (t) : NEXT t 
420 LET f=(2*PT)/tt 
430 CIRCLE 127.86,60 



440 LET s=Or FOR k=1 TO n 

450 LET in=a+aCk}*f 

460 PLOT 127,86; DRAW 60*S1N 

,60*COS m 

470 LET a=Bl 

480 NEXT k 

490 PAUSE 0: RETURN 



a 



10 DIM AUD ,P(31) 

15 PMODE 3. 1 

20 CLS 

40 PRINT §45, "MENU" 

50 PRINT el69,"l- INTR0DU2IR DA 

DOS" 

60 PRINT 6201, "2- GRAFICO" 

70 PRINT §233, "3- SAIDA" 

80 AS^INKEYS: IF AS<''1" OR AS>"3 

" THEN 80 

90 ON VAL (AS) GOSUB 200,400,600 

100 GOTO 20 

200 CLS:N=0 

210 PRINT"ITEM NO. 'iN+l;:INPUT 

AS: IF AS-"" THEN RETURN 
220 N=N+1 :A(N) =VAL (AS) 
230 IF N<31 THEN 210 
240 RETURN 

400 IF N-0 THEN RETURN 
410 PCLS: SCREEN 1,0:TT-0:FOR T- 
1 TO N:TT=TT+A<T) :NEXT 
420 FOB ?==! TO N : P (T) =A (T) *810« 
ATN(l)/TTrNEXT 
430 J=0:P(0)=-1 
440 FOR T-1 TO N 
450 IF T-N AND N-3*INT (N/3) =1 T 
HEN COLOR 4 ELSE COLOR T-3*INT( 
T/3)+2 

460 FOR K=l TO P{T) 
470 X=X+.01 :Y==¥+.01 
490 LINE (127.95)-(127+60«SIN(X 
) .95-60*COS<Y) j ,PSET 
490 NEXT K,T 

500 IF INKEYS-"" THEN 500 
510 RETURN 
600 CLS 



m 



in DIM A(3 
20 CLS 

3 LOCATE 

4 LOCATE 
dadofl" 

50 LOCATE 
rAf.KT.o" 
60 LOCATE 
80 AS=INKE 
" THEN 80 
•50 ON UAL( 
too GOTO 2 
200 CLS:N= 
210 PRINT" 
A (N+1 ) :IF 
220 N=N+l 
230 IF N<3 
24 RETURN 
400 IP N=0 
410 COLOR 
: FOR T= 1 
4 20 FOR T= 



] ) . P C 3 U 

18: PR TNT "MENU" 

1 0,6: PRINT" 1 - Entrar 

10.11 : PR INT" 2 - Uer g 

10, 14 :PRTNT"3 - Fl»" 
YS:TF AS<"I" OR AS>"3 

AS) C503UB 200.400.600 





ftem nO ";N+1 ; : INPUT 

A(N+T)=0 THEN RETURN 

] THEN 210 

THEN RETURN 
L5. 15. 15: SCREEN 2 : TT = 
TO N:TT=TT+A(T) :NEXT 
1 TO N:P(T) =ACT) *8T0« 
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ATN(1 ) /TT:NEXT 

430 J-1:P{0)=-1 

4'!!0 FOR T=l TO N 

450 If T = NTHE;N color 11 ELSE J = 

J+l;COLOR J:rF J=l.2 THEN J = 

460 FOR K=l TO P(T) 

470 X=X+ .01 :Y=y+.01 

480 LINE (127,95)-C127+60*SIN(X 

) ,9.'i-60*(;:OS (Y) ) 

490 NEXTrNEXT 

son TK INKEY$=""THEN500 

510 BETURN 

60 CLS 

30 00 DATA 8,9,10 
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10 DIM A(J1) .P(.U) 

20 HOMR 

40 HTAB 18: PRINT "MENU" 

50 HTAB 10: VTAB 10: PRINT "1 

- EMTRAR DADOS" 

60 HTAB ]0: UTAH J i : PHI NT "2 

- VF.R C5RAFICO" 

70 HTAH 10: UTAH 16; PHINT "3 

- FIM '■ 

BO OET A$: IF AS < "1" OH AS > 

"3" THEN 80 
QO ON UAL (AS) GOSUB 200.4 00, 
600 

100 GOTO 2 
200 HOME :N =^ 
210 PBTNT "ITEM NO. " ; N + 1;: 
TNPllT AS: IF AS = "" THEN RETII 
RN 

220 N = N + 1 :A(N) = 'JAL (AS) 
2.10 ] F N < 3! THEN 210 
240 RETUBN 

400 IF N = THEN RETURN 
410 HGR :TT = 0: FOR T = 1 TO 
N:TT = TT + A(T) : NEXT 
420 FOR T = 1 TO N:PtT) = A(T} 

* 810 * ATN (I) / TT: NEXT 
430 J = 0:P(Q) = - ] 
44 FOR T = I TO N 
4S0 J = J + 1 : ;F J = 4 THEN J 
= 1 

455 HC0LOR= J: TF T = N THEN 
BCOLOH= .5 

460 FOB K = 1 TO P(T) 
470 X=X+.OI:Y=y+ 01 
480 HPI.OT 12 7.9.5 TO 127 + 60 * 

SIM CX) ,^^ - 60 * COS (Y) 
490 NEXT : NEXT 
500 GET AS 
510 TEXT : RETURN 
600 HOME 

Ao executar o programa, urn menu 
seri apresentado na tela, oferecendo ires 
opgoes; entrar dados, ver o grafico ou 
terminar o programa. A linha 80 faz 
com que o computador espere ale que 
uma lecla seja pressionada. Voce podc 
pressionar quatquer uma, mas, devido 
a condigao imposta pela declaracao 
IF... THEN da mesma linha, somente as 
teclas 1, 2 ou 3 serao aceitas, 

Uma condigao parecida faz com que 
programa volte ao menu, caso voce te- 
de 2 sem ter nenhum dado na memd- 



ria. A tecla 3, por sua vez, termina o 
programa, E necessario comando 
RUN para reinici^-lo. 

No comego da execugao. a escoiha 
6bvia e a tecia 1 , que Ihe possJbilita en- 
trar alguns dados. A linha 90 indica pa- 
ra qual poiito do programa a execugao 
sera desviada; no caso, ela ira para a li- 
nha 200. Cabe a esta linha estabelecer 
uma varidvel (N) para o niimero de da- 
dos. A entrada de dados se da na linha 
210. EJes permanecerao armazenados 
numa matriz <A(.)), na Unha 220. Esta 
matriz foi dimensionada anteriormente, 
na linha 10. 

Para entrar os dados, digiie o niime- 
ro seguido de ENTER ou RETURN. A 
linha 230 verifica se o espa?o reservado 
para OS dados ja nao esta preenchido. 
Se ainda hi lugar, o programa volta a 
linha 210 para mais uma entrada, Nao 
e obrigaldrio ocupar todo o espa?o re- 
servado para dados. Quando voce qui- 
ser encerrar a entrada de niimeros, sim- 
plesmente tecle as instrugoes ENTER ou 
RETURN sem ter digitado nenhum nu- 
mero. O programa volta, entao, a apre- 
sentar o menu principal, por agao da li- 
nha 210. Se, por outro lado, voce preen- 
cheu todo o espago disponivel, a linha 
240 encerrari automaticamente a entra- 
da de dados. 



CONSTRUCAO DO GRAFICO 



Se, agora, voce pressionar 2, o pro- 
grama sera desviado para a linha 400, 
encarregada de iniciar a rotina que de- 
senha o grafico, A linha 410 le todos os 
valores armazenados e calcula o sen to- 
tal. O restante da rotina calcula uma es- 
cala para os dados e desenha os grifi- 
cos. Como isso 6 feito de maneira um 
pouco diferente para cada computador, 
a descrigao ser^ individual. Para enten- 
der melhor o funcionamento das fun- 
goes circulares no computador, veja o 
artigo da pdgina 334. 



A linha 420 divide o circulo comple- 
to (um angulo de 360 graus ou 2 pi ra- 
dianos) pelo valor total dos dados para 
obter um fator de escala. A linha 430 
encarrega-se de desenhar o circulo (de 
ralo 60). As linhas 440 e 450 passam por 
todos OS valores, caJcuiando um subto- 
tal para cada um e multiplicando este 
valor pelo fator de escala (f)- valor en- 
contrado (m) e o valor de pontos na cir- 
cunferencia do circulo. Este & dividido 
por raios desenhados pela linha 460. 




APERFEigOE OS PROGRAMAS 

Agora que voc§ jS completou e tes- 
toy OS pfogramas deste artigo, que ta! 
tentar melhorar a aparencia dos grSfi- 
cos desenhados na tela? Aqui vao al- 
gumas sugestoes. 

Um recurso que enriquece muito o 
aspecto final de um grSfico — e que au- 
menta a sua utilidade, sobretudo quan- 
do se trata de ilustrar apresentagoes ou 
artigos — 6 a f/fu/apao. Voc^ pode 
acrescent^-la ao programa, por meio de li- 
nhas DATA ou INPUT, sob Ir^s lormas: 

• R6tulos para os eixos X e Y: identifi- 
cam o valor ou nome das divisoes dos 
eixos (exemplo: os nomas dos meses 
em um grafico de barrasl. 

• Legendas: indicam o significado de 
cada barra ou "fatia" do grafico de 
segmentos. No grafico de barras. po- 
dem ser oolocadas na parte de batxo ou 
no canto superior diretto; no de seg- 
mentos, devem aparecer ao lado de ca- 
da "fatia". 

• TItulos propriamente ditos: especifi- 
cam D assunto do grSf ico — por exem- 
plo, "VENDAS DA COMPANHIA XYZ. 
Resultados de 1985". Costumam ter 
de uma a trfis linhas, geralmente cen- 
tradas e posicionadas na parte superior 
ou. inferior da tela. 

Tambfem 6 interessante salientar 
uma barra ou segmento, deslocando- 
o ligeiramente de sua postqao — como 
se uma fatia do grdfico de segmentos 
fosse retirada. Este recurso, conheci- 
do como expfosSo, pode ser facilmen- 
te programado nos micros que pos- 
suem o comando CIRCLE. 



Eir)^B][^ 



A linha 4 1 totaliza os dados da me- 
m6ria, Em seguida, a linha 420 passa 
por todos OS dados, calculando um sub- 
total para cada um e dividindo este sub- 
total pelo total. Esses valores, j4 em es- 
cala, sao armazenados na matriz P(.), 
que foi dimensionada na linha 10. A li- 
nha 430 define variiveis que serao utili- 
zadas na seqiiencia de cores. O lago 
FOR... NEXT iniciado na linha 440 es- 
colhe a cor para cada um dos segmen- 
tos do circulo, e o que comefa na linha 
460 tratja os raios que preencherao os 
segmentos com a cor predeterminada. A 
linha 500 faz com que o grafico fique 
visivel ate que alguma tecla seja pressio- 
nada, momento em que o menu nova- 
mente e apresentado. 




PROGRAMACAO BASIC 



i 





RAFICO! 

PECmUMO) 



^ QUE SAO CARACTERES 

grAficos PRE-PROGRAMADOS 

COMO ENTRAR CARACTERES 




GRAFICOS PELQ TECLADO 
DO MICRO 



Os computadores da linha ZX Spectrum 
dispoem de caracteres gr^ficos 
que podem ser usados dentro de urn 
programa ou entrados diretamente pelo 
teclado. Aprenda a utiliz^-los. 



Os micros da linha Spectrum (como 
TK-90X) sao muilo versateis do pon- 
to de vista da programagao grafica. Em 
artigos anteriores, vimos como a tela 
grifica pode ser programada por meio 
de instrucoes extremamente poderosas, 
em aJta resolugao, tais como LINE, 
CIRCLE, PAINT etc. 

Entretanio, o Spectrum tem um re- 
curso grafico adicional que e pouco ex- 
plorado: os caracteres grdficos de bai- 
xa resolu<;ao. Estes podem tanto ser en- 
trados diretamente pelo teclado quanto 
inseridos por intermedlo da fun^ao 
CHR$, do BASIC. 

O que sao caracteres graficos? Como 
voce j4 sabe, os caracteres que aparecem 
no video tem codigos num^ricos intei- 
ros, que, teoricamente. podem variar 
entre e 255 . Cada caractere correspon- 
de, portanto, a um byte da mem6ria de 
video. Parte dessa codificacao ^ conven- 
cionada internacionalmente pelo chama- 
do codigo ASCII, que vai de 32 a 126. 
Os cddigos de a 3 1 sao normatmente 
udlizados para fun^oes de controle do 
video, e dependem do tipo de computa- 
dor. O mesmo ocorre com os c6digos de 
127 a 255. Nesta faixa, cada fabricante 
utilizou OS c6digos de uma maneira, ge- 
ralmente para acomodar caracteres 
grdftcos. 

O Spectrum possui apenas dezesseis 
caracteres grdficos de teclado, os quais 
podem ser descritos como combina;6es 
dos quatro quadradinhos qiie formam 
um caractere (pixels maiores dos que os 
utilizados na programa?ao grdfica de al- 
ta resolugao). A mairiz basica de um ca- 
ractere grdfico 6: 












possiveis, obtemos os diferentes grifi- 
cos. Por exemplo: 



» 



• "Colorindo" individualmente os 
^^ quadradinhos, em todas as combinacoes 



O caractere grafico com o codigo 1 28 
e um espai;o em branco, o que nao o tor- 
na menos necessario. Como os demajs 
caracteres, ele pode ser invertido e co- 
lorido com INK e PAPER. 



GRAFICOS DA ROM 



Os caracteres grdficos sao tambdm 
conhecidos como grdficos da ROM, pois 
ji vem pre-programados. No Spectrum, 
eles ocupam a faixa da tabela de carac- 
teres que vai de 128 a 143 e, em geral, 
sao utilizados para a elaboragao de de- 
senhos em baixa resolu?ao ou para a 
composigao de bordas e outros tipos de 
linhas retas. Na formatagao de tabelas 
ou formularios de enlrada — seu empre- 
go mais freqiiente — apresentara a van- 
tagem de nao complicar a programaijao, 
misturando tela grafica com texto. Pos- 
sibilitam, dessa maneira, o uso de co- 
mandos bem mais simples, como 
PRINT AT e TAB. 

Outra vantagem dos caracteres grd- 
ficos pre-programados t que eles se 
comportam exaiamente como quaiquer 
caractere alfanumerico, para fins de im- 
prcs<.ao na tela. Assim, valem para eles 
os comandos INK. INVERSE e PA- 
PKR, quando sequer mudar as cores de 
frente e fundo. E divertido tentar com- 
por desenhos de baixa resolucao, usan- 
do OS tres comandos acima menciona- 
dos e OS caracteres grificos. E, nao ha- 
vendo necessidade de alta resolu^ao, se- 
ra scmpre mais fAcil desenhar com eles 
do que com os comandos graficos. 



ENTRADA PELO TECLADO 



Da mesma forma que os caracteres 
convencionais do ASCII, os caracteres 
grdficos podem ser digitados pelo tecla- 
do. Para isso, pressione simultaneamen- 
te as teclas <CAPS LOCK> e <9> 
(a tecla 9 k idcntificada pelo r6tulo 
GRAPH, na parte de cima). Dcssc mo- 



ido, coJoca-se o teclado em modo grdfi- 
co, o que e indicado na tela pelo apare- 
cimento do cursor com a letra G. Em se- 
guida, pressione siraultaneamente a te- 
cla < SHIFT > e uma das teclas numd- 
ricas (de 1 a 8), Voce obterd, entao, um 
dos sfmbolos grdficos marcados nas res- 
pectivas telas, Se nao acionarmos o 
< SHIFT >, aparecerao os simbolos 
graficos complementares, ou invertidos, 
em relagao aos marcados nas teclas. 
Com isso, teremos acesso aos caracte- 
res desejados, que aparecerao direta- 
mente na tela — por exemplo, dentro de 
uma cadeia alfanumirica. 

Quando terminar de digilar os carac- 
teres graficos em uma linha, pressione 
novameme <CAPS LOCK> e <9>. 
para salr do modo grafico. 

O programa seguinte desenha uma 
tabela simples, usando blocos grdficos. 
Depois, coloca os nomes digitados pelo 
usudrio nas linhas da tabela. 



\ NO. I HOME |- 



10 



r 



200 CLS 

210 PRINT 

220 PRINT 

230 PRINT 

240 FOR i"l TO 

250 PRINT "I 

260 NEXT 1 

270 PRINT '^M 

280 FOR 1-1 TO 10 

285 PRINT AT 19 , ; "NOME: " 

290 INPUT nS 

300 PRINT AT i+3,4ii 

310 PRINT AT l+3,10:nS 

320 NEXT i 

Nas finhas 220 e 250, os espafos em 
branco e as letras podem ser digitados 
normalmente, sem ser necessdrio sair do 
modo grdfico. Nesse caso, as letras apa- 
recerao apenas em maiiisculo. Para apa- 
recerem em minusculo, serd precise 
"desligar" o modo grdfico. 

Exist em duas desvantagens na entra- 
da de caracteres grdficos pelo teclado: 
primeiro, nem todos os simbolos dispo- 
nfveis estao marcados nas teclas, o que 
torna o processo mais trabalhoso e su- 
jeito a erros; segundo. o programa nao 
pode ser hstado em uma impressora nao 
grdfica, ou que nao seja propria para o 
Spectrum. 

No pr6ximo artigo desta s^rie, vere- 
mos como utilizar caracteres grdficos 
dentro de programas. 
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^ UNHA 


FABRICANTE 


MOOELO 
Thor2010 


' FABWCANTE 


MODELO 


PAIS 




Apple 11 + 


Appletronica 


Appletronica 


Ttior2010 


Brasll 


Apple 11 + 


Apple n-»^ 


CCE 


MC-4000Exato 


Apply 


Apply 300 


Brasii 


Sinclair ZX-81 


: Apple 11 + 


CPA 


Absolutus 


CCE 


MC-4000 Exato 


Brasii 


A'pplell + 


Apple 11 + 


CPA 


Polaris 


CPA 


Absolutus 


Brasii 


Apple 11 + 


Apple 11 + 


Digitus 


DGTAP 


CPA 


Polaris 


Brasll 


Apple 11 + 


Apple II + 


Dismac 


D-6100 


Codlmex 


CS-6508 


Brasll 


TRS-Color 


Apple 11 + 


ENIAC 


ENIAC 11 


Digitus 


OGT-100 


Brasll 


TRS-80 Mod.HI 


Apple 11 + 


Franklin 


Franklin 


Digitus 


DGT-1000 


Brasii 


TRS-aO Mod.lli 


Apple 11+ 


Houston 


Houston AP 


Digitus 


DGTAP 


Brasii 


Apple 11 + 


Apple 11 + 


Magnex 


DM II 


Dismac 


O-8000 


Brasll 


TRS-80 Mod. 1 


Apple 11 + 


Maxltronica 


MX2001 


Dismac 


D-8001/2 


Brasii 


TRS-BO Mod. 1 


Apple 11 + 


Maxitronica 


MX-48 


Dismac 


D-8100 


Brasll 


Apple 11 + 


Apple tl+ 


Maxilronjca 


MX-64 


Dynacom 


MX-1600 


Brasll 


TRS-Color 


W Apple 11 + 


Maxitronica 


MaxltronicI 


ENIAC 


ENIAC li 


Brasii 


Apple 11 + 


2 Apple H + 


Microcralt 


CrafllPlus 


Engebras 


AS-1000 


Brasii 


Sinclair ZX-BI 


uV Apple 11+ 


Mllmar 


Apple II Plus 


Filcres 


NEZ-SOOO 


Brasii 


Sinclair ZX-81 


1 Apple 11 + 


Mllmar 


Apple Master 


Franklin 


Franklin 


USA 


Apple 11 + 


': Apple If + 


Milmar 


Apple Senior 


Gradiente 


Expert GPC1 


Brasll 


MSX 


Apple 11 + 


Omega 


MC-400 


Houston 


Houston AP 


Brasii 


Apple 11 + 


Apple 11 + 


Polymax 


Maxxi 


Kemltron 


NajaSOO 


Brasll 


TRS-60 Mod.lli 


Apple 11 + 


Polymax 


Poly Pius 


LNW 


LNW-80 


USA 


TRS-80 Mod. 1 


Apple 11 + 


Spectrum 


MIcroengenhol 


LZ 


Color 64 


Brasii 


TRS-Color 


Apple 11 + 


Spectrum 


Spectrum ed 


Magnex 


DM II 


Brasii 


Apple 11 + 


Apple 11 + 


Su porta 


Venus II 


Maxitronica 


MX-2D01 


Brasii 


Apple 11 + 


Applelt + 


Sycomig 


SIC! 


Maxitronica 


MX-48 


Brasii 


Apple 11 + 


Apple 11 + 


Unltron 


APII 


Maxitronica 


MX-64 


Brasii 


Apple 11 + 


Apple 11 + 


Victor do Brasil 


ElppallPlus 


Maxitronica 


Maxitronic 1 


Brasii 


Apple 11 + 


Apple 11 + 


Victor do Bras!! 


Elppa Jr. 


Microcraft 


Craft II Plus 


Brasii 


Apple 11 + 


Apple He 


Microcraft 


Craft He 


Microcraft 


Caltlle 


Brasii 


Apple He 


Apple He 


Microdigital 


TK-3000lle 


Microdigital 


TK-3000lle 


Brasii 


Apple Me 


Apple He 


Spectrum 


Microengenholl 


Microdigital 


TK-82C 


Brasll 


Sinclair ZX-81 


USX 


Gradiente 


Expert GPC-1 


Microdigital 


TK-e3 


Brasii 


Sine lair ZX-81 


MSX 


Sharp 


HotbltHB-8000 


Microdigital 


TK-as 


Brasll 


Sinclair ZX-81 


Sinclair Spectrum 


Microdigital 


TK-90X 


Microdigital 


TK-90X 


Brasll 


Sinclair Spectrum 


Sinctaif Spectrum 


Timex 


Timex 2000 


Microdigital 


TKS-800 


Brasf) 


TRS-Color 


Sinclair ZX-81 


Apply 


Apply 300 


Milmar 


Apple II Plus 


Brasll 


Apple n + 


Sinclair ZX-81 


Engebras 


AS-1000 


MHmar 


Apple Master 


Brasii 


Apple 11 + 


Sinclair ZX-81 


Fllcres 


NEZ-8000 


Milmar 


Apple Senior 


Brasii 


Apple 11 + 


Sinclair ZX-81 


Microdigital 


TK-82C 


Multix 


MX-Compacto 


Brasii 


TRS-80 Mod.lV 


Sinclair ZX-81 


Microdigital 


TK-83 


Omega 


MC-400 


Brasll 


Apple 11 + 


Sinclair ZX-81 


Microdigital 


TK-85 


Polymax 


Maxxl 


Brasll 


Apple 11+ ^ 


SinclalrZX-ei 


Prologica 


CP-200 


Polymax 


Poly Plus 


Brasll 


Apple 11 + 


Sinclair ZX-81 


nitas 


Ringo n-470 


Prologica 


CP-200 


Brasii 


Sinclair ZX-SI 


Sinclair ZX-81 


Timex 


Timex 1000 


Prologica 


CP-300 


Brasll 


TRS-aO Mod.lli 


Sinclair ZX81 


Timex 


Timex 1500 


Prologica 


CP-400 


Brasii 


TRS-Color 


TRS-80 IVIod. 1 


Dismac 


D-8000 


Prologica 


CP-500 


Brasii 


TRS-aoMod.lM 


TRS-80 Mod. 1 


Dismac 


D-8001/2 


Ritas 


RlngoR-470 


Brasii 


Sinclair ZX-81 


TR5-80 Mod. 1 


LNW 


LNW-30 


Sltarp 


Hotbit H8-800C 


Brasii 


MSX 


TRS-80 Mod. 1 


Video Genie 


Video Genie 1 


Spectrum 


Microengenho 


1 Brasii 


Apple 11 + 


TRS-80 Mod.lll 


Digitus 


DGT-100 


Spectrum 


Microengenho 


11 Brasii 


Apple Me 


TRS-80 Mod.lH 


Digitus 


DGT-1000 


Spectrum 


Spectrum ed 


Brasii 


Apple H + 


TRS-80 Mo<t.lll 


Kemltron 


NajaSOO 


Suporte 


Venus 11 


Brasll 


Apple 11 + 


TRS-80 Mod.lH 


Prologica 


CP-300 


Sycomig 


SICI 


Brasii 


Apple 11 + 


TRS 80 Mod.lH 


Prologica 


CP-500 


Sysdata 


Sysdata III 


Brasll 


TRS-BO Mod.lli 


TRS 80 Mod.lH 


Sysdata 


Sy$daialll 


Sysdata 


Sysdata IV 


Brasii 


TRS-80 Mod.lV 


TFtS-80 Mod.lli 


Sysdata 


Sysdata Jr. 


Sysdata 


Sysdata Jr. 


Brasii 


TRS-BO Mod.lll 


TflS80Mod.IV 


Multix 


MX-Compacto 


Timex 


Timex 1000 


USA 


Sinclair ZX-81 


TRS-80 Mod.lV 


Sysdata 


Sysdata IV 


Timex 


Timex 1600 


USA 


Sinclair ZX-81 


TflS-Color 


Codlmex 


CS-6508 


Timex 


Timex 2000 


USA 


Sinclair Spectrum 


TRS-Color 


Dynacom 


MX-1600 


Unitron 


APH 


Brasii 


Apple 11 + 


TRS-Color 


LZ 


Color 64 


Victor do Brasll 


Elppa 11 Plus 


Brasll 


Apple 11 + 


TRS-Color 


Microdigital 


TKS-800 


Victor do Brasii 


Elppa Jr. 


Brasll 


Apple 11 + 


TRS-Color 

w 


Prologica 

■ m 


CP-400 


Video Genie 


Video Genie 1 


USA 


TRS-ao Mod. 1 


INPUT foi especialmente projetado para 


^ 


-y 


^ 


h!!<i 


,1 


microcomputadores compatlveis com as sete principals ^^J Sinclair zx-si 


H-H TRS-80 L 


^ 1 TK 2000 


flhrimx 




linhas existentes no mercado. 

Os blocos de texlos e listagens de programas aplicados ^^^ 






Stuntto emblefiM ftir seguido de uma 
m», entSo lanto ■> teulo como as 


I - 


—r- 


.apeoas a determinadas linhas de micros podem ser 
ioentificados por meio dos seguintes sfmbolos: 


^mm 


■ ■ 


m 


progTMtas que u 
espklncos pira i 


sesuem passim a ser 
rmna indlcada. . 


MHMI Spectrum 


■Ui TRS-Color L 


■LI Apple II 



llimilBNO PROXIMO NUMEROBllimill 

PROGRAMAQAO BASIC 

Voce j5 teve um primeiro contato com os caracteres grcificos do TRS-80. 
Aprenda a utiliza-los em desenhos mais complexos. 

PERIFERICOS 

Veja come fazer o melhor uso de sua impressora. 

PROGRAMAgAO BASIC 

No micro, as leis da perspectiva podem ser aplicadas por meio 
de apenas algumas teclas. Saiba como. 

PROGRAMAGAO DE JOGOS 

Simulador de voo: complete seu programa. 

C6DiG0 DE MAQUINA 

Crie na tela um reldgio digital. 
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